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Editor’s 
Introduction 


Your computer is waiting to challenge you. Arcade-style 
games, brain teasers, word games and puzzles are all here 
and ready to entertain you. 

A wide variety of games are included in this book. The 
programs have been written by some of the most talented 
young programmers around at the moment, and represent a 
variety of approaches to solving programming problems. 

An examination of the listings should teach you many 
tricks and techniques to apply to your own programming. 
And once you have mastered the programs in their present 
form, you might want to try your hand at improving them. 
There is no such thing as a “perfect program” so these 
games are sure to benefit from your programming skill. — 

All that now remains is for you to turn the page and enter 
the programs. | can only hope that you enjoy playing the 
games as much as we did when preparing this volume. 


TIM HARTNELL, series editor 


London 
March 1983 
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Author’s 
Introduction 


The VIC 20 is a remarkably flexible computer, yet many 
collections of programs designed for the VIC 20 seem to 
ignore this fact. In this group of programs | have looked for 
ones which demonstrate convincingly just how flexible and 
agile a computer the VIC 20 can be. 

From music making to space fights, from golf to tank 
battles on minefields, these programs should give you hours 
of fun with your computer, as well as teaching you more 
about its fascinating possibilities. 

| do not want you, however, to regard these programs as 
Holy Writ, final versions not to be tampered with. Rather 
they should be used as jumping-off points for your own 
games, your own developments, your own gradual discov- 
ery of the flexibility—and even companionship—of a fully 
stretched VIC 20. 


ALASTAIR GOURLAY 
Glasgow, Scotland 
September 1982 


THE FOLLOWING CONTROL 
CHARACTERS HAVE BEEM 
SED IM ALL LISTINGS— 


Fi-@ 
F3-s 
FS—is 
F7—ml 
CURSOR— 


UP-TI 
LEFT—8s 


Fo-m™ 


F4—m 


Fo—-m@ 


Fo-—m_ 


DOWN— 
RIGHT —RBi 


CLERR SCREEN-—cad 
CURSOR HOME-# 


BLK~—@ 
WHT — 
RED—fTs 
CWN—m& 
PUR—@ 
GRN—GE 
BLU—@& 
YEL— 


eHOKMNO TE — 


IN THE GOLF 


GAME TWO LISTINGS HAVE 
BEEN GIVEN. THIS WILL 
HELP IN THE ENTRY OF 
THE LOWER CASE TEXT. 


15 
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VIC20 


NEW KID IN TOWN 


This is the program to use to show off the best features of 
your VIC when you first get it. Written by Ken Staples, no 
instructions are needed. Just type in the program, and then 
use it to impress your friends. 


READY. 


10 Saag Tr re ne ces ren eecmee a Nema 

11 DIMD<8) 

12 PRINT"\3a@@m «=6DEMONSTRATION TAPE”: PRINT" SM 4A LIGHT HERRTED" :PRINT" MM LOOK A 

T A FEW", 

13 PRINT"B& OF THE": PRINTSPC(S) "MNCAPABILITIES" :PRINTSPC(6)" MOF THE VIC" :FORI@1T 

010000: NEXT 

20 PRINT" *OO8"SPC(6)"SHI THERE!":PRINT"M MY NAME IS YIC.":PRINT"@°"SPC(9) "YOUR 

3@ PRINT" FAITHFUL SERVANT" :PRINT" WOULD YOU LIKE TO SEEM SOME OF THE WONDERF 

UL" 

40 PRINT" MTHINGS I CRN DO": PRINT" M"SPC(9) "YES! 11" 

3@ PRINT"MGOOD! ARE YOU SITTING COMFORTABLY?" :FORI#@1T7100@ : NEXT 

66 PRINT" -2QRIMQGRIMATCH ME CHANGE BORDER" :PRINTSPC(1)"AND SCREEN COLOUR IN" 

65 PRINTSPC(2)"R255 DIFFERENT WAYS" 

7@ FORI#1TOS@@@ : NEXT : FORI#1 T0295 : POKE36679, I : PRINT" M" I‘ FORJ@1 T0300 ‘NEXTJ, I 

73 FORI#1T0S0@ : NEXT : FORI=1 T0255 : POKEI6679, I : NEXT 

60 PRINT" ORRWRRR JUST LET ME CHANGE” 

98 PRINT"NTO MY ORIGINAL COLOUR” : FORI@1T0500@ : NEXT : POKES6879, 27 

95 FORI#17T01000: NEXT 

108 PRINT"*2@8 NOW LET US PLAY THE PIANO. JUST PRESS THE FOLLOWING KE'YS" 

110 PRINT"ML 15 5 6 6 S"SPC(90"4 43322 1 354433 2" 

120 PRINT"S 5 4 43 3 2"SPC(90"1 1355 6 6 S*SPCC90"4 43922169" 

138 FORI#1T08:READD<1 > : NEXT 

131 DATAZ23, 227, 238, 231,234, 236, 238, 299, 223, 223,234,244 

135 DATR296,236,234,231,291,238, 298) 227, 227,223, 294,234, 231,231 

136 DATAZ3O, 238, 227 , 234,234,231, 231,230, 238, 227 223, 223,234, 234,236, 236,234,231, 

231,238 

137 DATAZI@, 227,227. 223,239 

148 POKEY, 15 

158 GETAS: IFAS="" THENIS@ 

168 I=VALCA$) : IF1=O0RI=9THENPOKES2, 8: G0T0168 

178 POKES2.@:FORJ#1 T0235 : NEXT : POKES2, DCT) :GOTO1S8 

160 PRINT" (2@Q@@@0 WHY NOT TRY AGAIN. WALTERNATIVELY, WHY ENOT TRY TO COMP 

Ose" 

161 PRINT"M ‘YOUR OWN TUNE. JUST WPRESS “Y’ OR ‘N’" 

185 GETZ$: IFZ$C>"Y"ANDZ$"N"“THENIBS 

190 IFZ$="Y" THENRESTORE : GOTO10@ 

250 PRINT"3O@d LET US SEE IF I CAN (MREMEMBER THAT TUNE YOU WERE TRYING TO 
PLAY" 
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268 FORI=1T04000: NEXT 

300 POKEY, 15: FORI#©17T043: READD(@) ‘ POKES2, D¢@) ‘ FORJ=1 T0488 : NEXT : POKES2, 8 

381 A=250: IFT=70R1#140R19210R1 *280R1* 35 THENR#=SO8 

305 FORK#1 TOA: NEXT 

318 NEXTI :POKES2, 0: POKEYV,@ 

328 PRINT" ORMS@OWNN NOT EXACTLY BACH BUT M I’M TAKING LESSONS! !/" 

348 FORI#1TO050@O: NEXT: PRINT" OOOOROS NOW LET US HAVE AM FEW SOUND AFFECTS" 
345 FORI=1T05@@@ : NEXT 

350 POKES4, 220: FORL=15TO@STEP—1 : POKEY,L : FORM=1 T0908 ‘ NEXTM. L ‘ POKES4, @:POKEV,@ 
368 POKEY, 15: POKES4, 0: FORO=248T0253 : POKES4, 0: FORI#1T0100:NEXTI.0 

378 FORO#=253TO246STEP-1 : POKES4, 0: FORI=1T0180: NEXTI,0:POKES4,@: POKEV,8 

382 POKEY, 3: FORL#Z3@TO126STEP-1 : POKES3,L : FORM#1T020: NEXTM. L ‘ POKES3, @: POKES4, 200 
398 FORL#1STO@STEP-. @5: POKEV,L ‘NEXT : POKES4, @ 

Ba aN ec aa a 
418 POKES3, 0: NEXT : POKEV, 2 

420 POKES4, 135: FORL=1T010: DeINTCRND¢1 #90) +30 : FORM=0T018 : POKEV, M: FORN#1 TOD: NEXTN 
M 

438 FORM=1S5TO@STEP-1 : POKEY,M:FORN#1 TOD: NEXTN,M,L : POKEV, 0: POKES4,@ 

44@ POKEYV, 15: FORL#1T015: FORMe208TO220+Lm2 : POKES, M: NEXTM,L : POKEY, 8: POKESS. @ 
450 POKEV, 15: B=0: FORL#128TO2SSSTEP1 1 : POKES! L: FORM=1T010: NEXT : BeB+} 

462 IFB*3THENB=@: POKES! .0 

470 NEXTL:POKEY.,@:POKES1,2 

480 PRINT"CNOW FOR A VARIATION OFMKNOCKING DOWN THE WALLIGANE" 

498 PRINT"M OR WHY NOT USE IT TO MDESIGN YOUR NEXT MLOUNGE CARPET!!!" 
495 FORI=11T0100@0 : NEXT 

3@@ PRINT"<2" : POKES6879, 9: POKEY, 15 

51@ FORI=1 T0350 : POKE7679+INTCRND¢ 18506941, 102: NEXT 

320 Xe1:¥s1 : DXel : Dyel 

338 POKE7679+X+22mY, 81 :FORI©1T010: NEXT : POKE7679+K+226Y, 32 

348 X=X+DX: IFX#@ORX=#21 THENDK=-Dx : POKES, 228 

550 Ys¥+DY : IFY=OORYs22THENDY2-DY : POKES3, 238 

568 POKES3, 0: IFPEEK67679+X+22eY )=102THENDX=-DX ‘ POKES3, 168 

565 A=A+1 : IFA*SOSTHENPOKESS, 6: POKEY, @: POKE36879, 27 ‘RUN 

367 B=B+1: IFBa1STHENB1=B1+1 ‘ B=@ 

368 IFB1=°16THENB1=@ 

578 POKE36879, B1 : GOTOS32 


READY. 


COMBAT 


In this two player game, written by Ric Kube of South 
Australia, two tanks battle it out to the death. Both tanks are 
well protected—they can sustain up to ten hits before being 
destroyed. Deadly mines (shown as diamonds) are scattered 
around the battlefield. If a tank hits one of these it will lose 
one of its ten lives. There are other obstacles (solid squares) 
which, after being hit once, change (to dotted squares). 
Hitting the obstacle in its latter form will destroy the tank 
totally. The first player to lose ten lives loses the battle. 
The controls for the left player are: 


O R ¢ 
: 
C~ V “B 


The controls for the right player are: 


F to fire 


Use the up arrow to fire 


The object of the game is to score ten points. You score a 
point in one of two ways, either by shooting your oppo- 
nent’s tank, or when your opponent moves onto a mine. 
Missiles will fly over the mines and shatter on hitting the 
outer walls. 
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10@ REMSSCOMBAT 

110 REMMARIC KUBE 

12@ GOSUBSS2 

13@ GOSUBO4@: PRINT "=I" 

14@ POKE36879, 93 

15@ FORKX#1T020_ 

160 POKE7690+K, 100: POKEB@98+K, 99 

178 NEXT 

16@ FORY=iTO18 

198 POKE7688+Y#22, 103: POKE7701+v#22, 101 
200 NEXTY 

21@ FORY=1T018 

220 FORK=1T028 

230 ReRND(1)910 

240 IFR>9, SANDR<9. 7STHENPOKE766Q+2201+X, 162 
250 IFR>9. 7STHENPOKE7680+22m7+X, 90 

260 NEXT: NEXT 

278 L¥@1@:LH=3:RV=10:RH=36 

200 Mu32 

299 POKE7903, 81 : POKE7936, 67 

300 POKE9126, SL+46:POKE9133, SR+48 

310 IFSL=SORSR=STHENPOKE36679, 91 

320 IFSL=SORSR=STHENPOKE36879, 98 

330 IFSL=1@ORSR=1@THEN749 

349 Ag="" 

350 GETAS: IFAS=" "THENSSO 

362 IFA$="C"ORAS=" BY THENR==1 : Det 

370 IFAS="V"ORRS=" BI" THENR=@ : Det 

960 IFRS="B"ORAS=" 8" THENR=1 :D=1 

390 IFAS="D"ORAS="—" THENR=~1 :D=Q 

400 IFR$="F"ORAS=" t THENS7@ 

410 IFAS="G"ORAS="I" THENR=1 :D=0 

420 IFRS="E"ORRS="B%" THENR=-1 : De-1 

430 IFAS="R"ORAS=" I" THENR=@ :D=~1 

442 IFAS="T"ORAS="—" THENR@1 : D=~1 

450 IFR*QANDD=@THENS48 

460 IFASCCA$)>13@THENRRER : RD=D: VeRV : He RH: Pa@7 : SeSL 
470 IFASCCA$)<13@THENLR=R:LD@D: VeLV:HeLH:P=@l : SeER: 
Ce7690+H+220V 

N=7600+H+228(V+D)4R 

IFPEEK (N) >@@ANDPEEK (N)<>9@THENSOO 
IFPEEK(N)=32THENPOKEC, M: M=2: POKEN, P 
IFPEEK(N)=S@THENPOKEC, M:M=9@: POKEN, P : GOSUB680 : S=S+1 
HsH+R : VeVveD 

IFRSC(AS$)> 190 THENRV=V : RHaH : SLeS: RMON 
IFASC<AS)<13@THENLVaV ‘HSH: SR=S:LM=M 

GOTO3ee 

IFAS=" t" THENVeRY : H#RH : RERR: DeRD: #87 

IFA$="F" THENVSLY : HeLH:ReLR: D@LD: Q=81 

C=76G0+H+220Y 

Na769Q+H+R+220¢V4D) 
IFPEEK(N)=32THENPOKEC, @: POKEN, 46:HeH+R: VeV+D : Qe32: DOTOSSO 
IFPEEK(N)=1@2THENPOKEC, @: GOSUB689 : POKEN, 32: GOTO3ee 
IFPEEK(N)=16@THENPOKEC. @: GOSUB68@ : POKEN, 182: GOTO3@0 
IFPEEK(N)=9@THENPOKEC, @: POKEN, 46:HaH+R' VaV+D: Qa9@ : COTOS9® 
IFPEEK(N)#81 THENSR=SR+ 1 : POKEC, @ : GOSUB692 : GOTO308 
IFPEEK(N)@87THENSL®=SL+1 ! POKEC, @: GOSUB689 : GOTO302 
IFPEEK(N)>9@THENPOKEC, @: GOTO3@8 

68Q Z1=PEEK(N+1) !22@PEEK(N=3) : 23@PEEK(N¢22) :Z4=PEEK(N-22) 
690 POKEN*!,42:POKEN-1,42:POKEN*22, 42: POKEN-22, 42 

78 FORK@@TOS@: NEXT 

71 POKEN+1,21:POKEN-1,22:POKEN+22, 23: POKEN-22, 24 

720 POKE36678, 15: POKE36877, 255 : FORB=1 TOS@: NEXT : POKE36878, @ 
738 RETURN 

749 IFSL#1@THENAS="LEFT" 

750 IFSR=1QTHENA$="RIGHT" 

768 POKE36879, $3 


SSISESLRESSE 
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I88E88 
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770 PRINT" THE GAME WAS WON BY":PRINT" THE "A$" PLAYER” 

788 PRINT"ANOTHER GAME? (Y/N) " 

798 GETNS: IFNS#""THEN790 

602 IFNS="Y"THENGSO 

810 IFNS#"N" THENEND 

820 GOTO799 

838 GOSUBE42 : GOTO130 

648 AS="" RaQ: D=Q: SL=Q: SRaQ :LMa32: RM@32 : RETURN 

G50 PRINT" JSPRORERRICONBAT ME" 

868 PRINT" THE OBJECT OF THE GAME IS TO SCORE a10™ POINTS" 

87@ PRINT"MYOU MAY SCORE A POINT IN TWO WAYS-" 

880 PRINT" L>SHOOTING YOUR OPPON-ENT’S TANK” :PRINT"2)YOUR OPPONENT MOVINGON TO A 
MINE" 

698 PRINT"MMISSILES WILL FLY OVERMINES AND DISINTEGRATE ON HITTING THEOQUTER WALL 


906 PRINT"EACH PLAYER HAS 9 CONTROLS.":PRINT"M PRESS ANY KEY TO CON 
TINUE" 

918 GETAS$: IFRS=""THENS1@ 

920 PRINT"CLEFT PLAYER" 

930 PRINT’M ERT" 

942 PRINT"M DF G" 

950 PRINT"M C ¥ B" 

960 PRINT" MARIGHT PLAYER" 

970 PRINT"MF2 Fi F4" 

960 PRINT"MFS ft FS" 

998 PRINT"MF6 F7 FS" 

1008 PRINT" MNPRESS ANY KEY TO SBBRBICONTINUE" 

1810 GETAS: IFAS=" "THEN1@18 

1028 PRINT"JTO MOVE PRESS THE KEY FOR THE DIRECTION YOU WANT TO GO" 
1838 PRINT’ MTO FIRE PRESS THE “F’ OR “*’ KEYS" 

104@ PRINT"MTHE MISSILE FIRES IN THE DIRECTION YOU LASTMOVED" 
1050 PRINT"MLEFT TANK-"@/ 

1068 PRINT" RIGHT TANK-“0° 

1070 PRINT" 0PRESS SARNYES KEY TO BEGIN" 

108@ GETAS: LFAS="" THEN! 06e 

1098 RETURN 


READY, 


TRAIL BLAZER 


You are trapped in a square, dot filled area, with a computer 
controlled robot. As you and the robot move around, you lay 
trails behind you. If you hit the walls of the arena, or either of 
the trails, you will be electrocuted. Points are scored as 
follows: 

Trapping the robot (the green O)—200 points 

Hitting purple power point—50 points 

Hitting while dot—10 points 
The speed of the game increases with each round. 


TRAIL BLAZER ¢ 25 


1@ RESTORE 

13 GOSUB388O : GOSUBZ0a0 

15 X#RNDC-TI) : DEFFNR(X) =( PEEK( 7663+X)8Q) 

20 D¢COda1 -DC1 e922: DC2)8-1 'DC9)a-22 

3@ L2158+(KJ$s" J" #58 

42 PP=46 : PC#437: DP#1 : DCs2 :SC=7680 : CL#3840@ : POKE36878. 15 

435 GOSUBIG808 

SQ IFKI$=" J" THENE2] 

35 GETA$:POKE198,@ 

68 NDs22e¢ CASs"P")-C ASE", ")+(ASE"L")-CAS=": "> > IENDCSATHENDP=ND 

61 GOTO7@ 

62 SYS760@:X120 : FORX@OTO3 : X12X1-FNRCX) ‘NEXT: IFX1>1 THEN7® 

65 ND#22eCFNR(Q)—-FNRC1)>+FNRC2)-FNRC3> : IFNDCO@THENDP=ND 

7Q NP=PP+DP : X1#PEEKCSC4+NP) : IFX1<¢>46THEN7@Q 

73 POKE36874 . 128:SsS+18 

88 POKESC+PP, 160: POKECL+PP. 2: POKESC+NP. 42 : POKECL+NP. 2: PP=NP 

SI PRINT" ORORRORRRNeRemE SCORE "S"H" ; :POKE36874, 8: POKE36876, 0 

98 NCSPC+D¢(DC) : IFPEEK“SC+NC)“>460RRNDC19¢, 1LSTHENZOO 

18@ POQKESC+PC. 160: POKECL+PC, 5: POKESC+NC. 15: POKECL4NC,5:PC#NC 

118 FORX=@TOL : NEXT : GOTONS@ 

200 FOR¥21T019: DC#INTCRND¢ 1 #4): IFPEEK CSC+PC+D¢ DC) )=46THENNC@PC+D¢ DC) : GOT0108 
21@ NEXT 

220 S=S+280‘LsL/2 

238 FORK#=1T04 : FORY=128T0168 : POKES6875, V > NEXT : NEXT : POKE36873, @ : PQKE199, 8: GOTO48 
700 IFX1281THENPOKE 36876, 200 : Sa$+3@ : GOTOS@ 

808 POQKE36977 . 258 : FORX# 1 T020@0 : NEXT : POKE36877.8 

810 PRINT" RRs GAME OVER ": FORX#1T05080 : NEXT : POKE198,@:S=@:G 
NT018 

1000 PRINT’T AT" 5 FORKBITOZO PRINT"! Mo. ccc cece cn ccerccer ete |” 
> NEXT 

101@ PRINT"L__ 

1020 FORX#1 TOS: Kis INTCRND¢ 1 #20)+1+¢ INTCRNDC 1 #2041 #22 

1038 POKE7680+x1, 168 : POKES840@+x 1.0: NEXT 

1048 FORK#1 TOS: X1sINTCRND¢ 1 )#28)+1+¢ INT CRNDS 1820) +1 822 

1058 POKE7680+x 1,81 : POKESG40Q+x 1, 4: NEXT : POKESC+46, 46 : POKESC +437. 46 

1068 POKECL+46, 1: POKECL+437. 1: RETURN 

2008 PNKE36879, 25 

2018 PRINT" TRAIL BLAZER" 

2020 PRINT’ MM = =©6MOVE AROUND THE SCREEN USING THE JOYSTICK OR-" 

2038 PRINT" PwGL +: eel, B" 

2040 PRINT" MSCORING-":PRINT",.-18 PTS": PRINT’ Meg-58 PTS” :PRINT"MTRAP-208 PTS" 
2960 PRINT" Ma PRESS ANY KEY" 

2978 GETAS: IFAS=" "GOTN2978 

2988 POKE36879, 110: IFKI$C>" "THENRETURN 

2990 PRINT" “SORROOINORERKE' BOARD OR JOYSTICK?" CRINT'M = ¢K/J>" 

2991 GETKI¢: IFKISCS"K"ANDKI€C>" J" THEN2ZS9 1 

2992 RETURN 

3000 POKES1, 176: POKES2. 29: POKESS. 176 : POKESE. 29 

3810 FORK=7690T07661 : RERDA: POKEX, A: NEXT 


3020 RETURN 

3038 DATA169,@.141,19,143, 169,127, 141,34. 145,173.17. 145.141,.238,29.169,4,45.238, 
23 é 

3440 DATAI41. 239. 29,169,.8. 45, 238,29, 141.240, 29, 169, 16.43, 238. 29, 141,241,29,169:3 
2 


3050 NATAAS, 239.29. 141,243. 29.173, 32,149.41, 128, 141.242, 29, 169. 259. 141,34.145,96 


PIANO 2001 


This program turns the VIC into a weird, futuristic piano. The 
piano uses the middle and high music generators of the VIC, 
allowing you to play two notes at once. The keyboard is used 
as follows: 


High Notes: 


QwWeE RT Y Ul F3—off 
Middle Notes: 
A S D F GH J K F5—off 


F1 is used to effect the move between low and high octaves, 
increasing the piano’s range. 


READY. 


1 FORX#368751036877 : POKEX, 127 : NEXT 
3 POKE36879, 9: PRINT "“ROORNE" 

3 DIMNOC2,9) 

6 OC#1 

10 FORX#1T09: READNOC 1, > : NEXT 

15 FORX#1TQ9: READNO(2, X) ‘NEXT 

100 oa 141,133, 159,170, 179, 187, 191,127,191, 198,204, 207,213,217, 221,223, 127 


200 

205 IFAS="" THENOC=0C+1 : IFOC@3THENOC#=1 

220 BS="RSDFOHJKI" : GOSUB1000: IFX<>-1 THENT#=36875 : GOSUB2200 
238 BS="QWERTYUI" : GOSUB1000 : IFXC-1 THENT=36876 : GOSUB2000 
235 FORK#15TO6STEP-3 : POKE36678, x: NEXT 

236 FORK®6T015STEP3 : POKES6878, X : NEXT 

248 GOTO2Z8C 


1088 FORK#1TOLEN(BS) : IFRS@MID€(BS,X, 1) THENK®NOCOC, X) ‘RETURN 
1010 NEXT: X=~1 : RETURN 

2000 IFX=PEEK(T) THENPOKET,. X-18 

oon FORN=PEEK(T) TOXSTEPSGN(X-PEEK(T > )WABS<X-PEEK(T) )/99 : POKET, N: NEXT : POKET, X: RE 


LAMAN NN 
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SKETCHPAD 


Let your imagination run wild with this multi-colored sketch 
program. You move the cursor (the checkerboard square) 
around the screen using the following keys: “P”—up, “.”— 
down, “L’”—left, and “:”—right. Hold any shift key to draw, 
or press the shift lock key while moving the cursor. If the 
shift key is not pressed, the cursor will erase as it moves. 

To clear the screen, just hold down the “.” key until the 
picture moves off the top of the screen. To change the 
drawing color, press the keys one to eight, depending on the 
color required. Note that shift and shift lock should not be 
pressed when changing color. 


READY. 


10 POKE36879, 136: PRINT "<M"; :CL#6:CL$="RaRASNEEN" ‘ POKES6076, 15 
28 X=PEEK(197) 
Age" * 


2s 

38 IFPEEK(653) OGTHENAS="8 8" 

40 IFX*13THENPRINTAS; “Tt”; 
SQ IFX=#37THENPRINTAS; “NOM ; 

58 IF X21 THENPRINTAS; OI" ; 


GETAS: * IFRO@THENCL=A 
68 PRINT" B®" ;MIDSCCLS,CL, 1); "MM"; ‘POKES6G75, 160+CL 418 
S@ FORX=1T0200:NEXT:PRINT" BM"; :POQKE36875. 6 : GOTO20 


AMAZE 


This is a simple but addictive maze game, written by Mike 
O’Neill, in which you pit your skills against the computer. 
You control a circular piece, the computer has a diamond. 
There are ten levels of play (different speeds) and three 
different mazes. Your time is displayed at the bottom of the 
screen by a horizontal bar which gets smaller as time runs 
out. The keys used are “A’—up, “S’—down, “K”—left, and 


4p" 


—right. 

The mazes may be changed by altering the subroutines 
between lines 5000 and 7010. More mazes may be added if a 
memory expansion cartridge is available. The keys used may 
be changed by altering lines 350 to 380. 


1@ PRINT" eM AMAZE ":PRINT"MM = BY MIKE O’NEILLM :POKEV,@ 
20 ReRND(-TI> :$=36876: ¥=36878: PRINT 

30 INPUT" ENTER LEVEL (0-9)";R: IFRD9ORRCOTHENS@ 

48 IR=200-R#2a 

S@ PRINT 

6 INPUT" WHICH MAZE ¢1-3)";1% 

70 IFIZ<1ORIZD3THENGO 

80 POKE36879, 57: PRINT" a" 

90 ONIZGOSUB700, 5000, 6c20 

1@@ PRINT") = 

14@ X1=INTCRND(1)#20) 

150 X2=INTCRND(1 #20) : IFABS(X1-X2><6THENIS@ 

16@ YIZINTCRNDC1 #18) 

170 Y2eINTCRND(1 #19) : IFABS<V1-¥2)<6THENI7@ 

180 P1=7702+x14+11822: IFPEEK(P1)<>32THENL4@ 

190 P2=7702+K2+V2622 : IFPEEK(P2)<>32 THEN: 50 

200 POKEP1+30720, ‘ :FORJ=1T018 

21:41 POKEPL, 32:FORI=1T05@:NEXT 

220 POKEP1, 81 

230 POKES, 202: POKEV, 15:FORI#1T05@: NEXT: POKEY, @: NEXT 
250 POKEP2+30720,2:FORJ@1TO1Q 

260 POKEP2,32:FORI=1T05@: NEXT 

278 POKEP2,90 

280 POKES, 151 :POKEY, 15:FORI=1T05@: NEXT : POKEV, @: NEXT 
298 1%e0 

300 1%=12+1 :GOSUB4QQ0: AS="" : IF 17> 10QTHENSGGE 

318 POKES, 150+1%:POKEV, 15 

320 GETBS: IFB$=""THEN340 

330 R$=B$ :GOT03Z20 

340 IFAS=" "THENAGO 
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35@ IFA$="A"THEND1=-22 
360 IFA$="S"THEND1s22 
370 IFAS="K"THEND1*-1 
360 IFAS="L"THENDi#1 
400 POKEP1.32:Pi=P1+D1 : IFPEEK¢(P1 >)=98THEN1G0@ 
410 IFPEEK(P1)<>32THENPi=P1-D1 : Di=@ 
426 FUKEP1+3072@, 1: POKEP1,81 
500 GOSUB200@: POKEP2, 32: P2=P2+D2 : IFPEEK(P2)=81 THEN! G88 
520 POKEP2+30720, 2 : POKEP2. 98 
600 POKEV,@:FORI=1TOIR : NEXT :GOTO300 
1008 GOSIJB3Q00 : SS=100-1% : IFSSCOTHENSS=2 
1818 PRINT" a SCORE"; SS 
1626 INPUT" SKQURMANOTHER GAME ¢Y/ND"; AS 
1436 IFA$S="¥"THENCLR : GOTO28 
104@ IFA$S="N"THENPOKE36879. 27: END 
1038 GOTO1A2e 
2686 N=Q 
2018 IFPEEK(P2+1)=320RPEEK(P2+1 >=81 THENN=N+1 : DCN) #1 
2020 IFPEEK(P2-22)=320RPEEK(P2-22)=281 THENN#N+1 ‘ DCN)D#=-22 
2038 IFPEEK(P2-1)=320RPEEK(P2-1>=81 THENN=N+i : DCN) a1 
2046 IFPEEK(P2+22)=320RPEEK (P2+22 81 THENN®N+1 ‘ DCN) #22 
210 R#INTCRND‘ 1 MN+1) 
2118 IFN>LANDDCR>=-D2THEN2 18a 
2120 D2=D¢R> 
2136 RETURN 
3608 POKEP1, 42:FORJ=12T010@ : POKES. 190+J :FORI#1T01@:NEXTI. J 
3885 POKES, @:POKEY, 8: POKE36877, 220: FORJ=15TOLSTEP-1 
301@ POKEP1.32:FORI#=1T05@:NEX™” :POKEV, J 
3028 POKEF 1,42: FORI#=1T05@: NEXT 
3838 NEXT : POKE36877 . 0: POKEV. @: RETURN 
4080 IFIZ>1@QTHENSBOO 
4010 JKeIZ-INTCI“/5) 85 K4=8163-1475 
4420 IF JZ=@THENPOKEKS: 32 
4030 IF J%=1THENPOKEK%. 231 
4640 IF JZs2THENPOKEKY, 234 
4050 IF J“=3THENPOKEKY: 97 
4060 IF J“=4THENPOKEKH, 116 
4168 RETURN 


5606 PRINT" .J:-————-—-_-——_ 


| | 
5801 PRINT" | | thd eee { | re 
5602 PRINT"T! | | em Pbdbt td Pit RHI td pa [ 
5083 PRINT")! | 1 | 1 | PET tL em Pe td poe 
5604 PRINT""TI Ss —- Ho 1 | ra TE ETL Smee 
5665 PRINT"TIE 4 1 | Bh NS et Sa)! II 1 td | b 4" 
1 | | 


5@06 PRINT" F -4 ema ro 
38.10 RETURN 

6686 PRINT") ——————— 
6001 PRINT")! | | 1 | 
6062 PRINT" | em | 
{ 


1 | | 
| fil t | 
6803 PRINT’™ 1 | ie | a tL rt | Kt |" 
Re | doe ) i" 
| | 


6085 PRINT" 1 dot | 

6006 PRINT" ra c~r °e— 

60189 RETURN 

7806 PRINTS -———_-—_—_———_—_, 

7661 PRINT" | 

7662 PRINT" | 
| 
| 


| 
| 
| 
6004 PRINT") Pt: ae eet | 
| 
I 


7463 PRINT" 
7604 PRINT" 
7605 PRINT" TI 
7606 PRINT’'Vi — —— —— 
70160 RETURN 

8G66 PRINT " Saeteeeen ee Ai 
$618 GOSUB3GQ0: PRINTS)": B0TO1820 


WUMPUS 


You are trapped in the Wumpus Caves, with two foul- 
smelling wumpi. Scattered around the caves are a number of 
bottomless pits. If you fall into one of these, you will be lost 
for good. Your only aid is a set of five magic arrows; these 
can be used to kill a wumpus, but only when you are close 
enough. 

You will be warned of the proximity of a wumpus by your 
trusty VIC, the only ally you have in the caves. Your VIC will 
also give you a warning if you wander too close to any of the 
bottomless pits. The cave system is numbered as follows: 


92 94 96 98 100 
72 74 76 78 80 
52 54 56 58 60 
32 34 36 38 40 


12 14 #16 18 20 


Enter the number of the cave in which you wish to move. 
You can move one cave up, down, left or right. There are one 
or two additional problems. You must not take more than 20 
minutes to find and kill the two wumpi, and you will be in 


30 


WUMPUS « 31 


real trouble if you use up all of your arrows. There are also 
the caves inhabited by superbats which can carry you to any 
other cave in the system. A final warning: it is inadvisable to 
disturb the wumpi, they can turn quite nasty. 


10@ POKE36879, 127: PRINT "<2" 
118 DEFFNRCX)*INTCRNDC 1 8X) 
128 P=1:MAeS 
13@ NP@=FNR(S)+3 : FORN®1 TONP : PT CN) @FNRC99) +2: NEXT 
148 W1=FNR(99) +2: W2@FNRC99) +2: [FW >W2THENL 49 
158 T1$="000800" 
168 TM=VALCMIDS(TI$,3,2)) 
170 PRINT"SMCAVE"P" TIME" TM"MIN.” 
180 PRINT" MAGIC ARROWS : "MA 
190 IFABS<(W1-P)<> 1LRANDABS (W1-P) <> 1OANDABS (W2-P ) 1 ANDABS (W2-P) 1 BTHENS7@ 
200 PRINT"@da THERE IS A WUMPUS NEARBY a 
210 PRINT"AFIRE AN ARROW? (Y/N " :POKE196, 2 
GETAS: IFR$<>"Y" ANDAS<C>"N" THENZ28 


INPUT"WHERE TO";CN 
MASNA-1 


228 
238 IFRS="N° THENS 78 
240 
258 


268 IFABS(CN-P)< 1ANDABS(CN-P)O18THENPRINT"CAN’T SHOOT HERE" : GOTO248 
270 IFWICOCNANDRZOOCNTHENPRINT" Ma = YOU MISSED IT B" :GOT0478 
282 IFWLsCNTHENW1=*-188 


290 IFW2=CNTHENW2=- 100 

300 PRINT" @aVOU KILLED A WUMPUSII” : FORN@1T01@00 : NEXT 

318 IFWi<)-1OB0RW2<>-180THENS 78 

320 POKES6879. 25:PRINT" SORQRRRRREEYOU HRYE SURVIVED WITH"20-TM"MINUTES LEFT" 
330 PRINT" ONANOTHER GAMECY/N)" :POKE198. 6 

349 GETAS: IFRSO"Y" ANDRAS "N" THENS4@ 

350 IFAS="N" THENPOKE36879, 27: PRINT" <2"; ‘POKE196,@:END 

368 RUN 

378 FORN®1TONP 

300 IFABSCPT(N)-P)>LRNDABS(PT(N)-P)<> 16 THEN4O2 

39@ PRINT" MMMIT’S DRAUGHTY HERE- PITS NEARBY | | | &@ :GOTO478 

40@ NEXT 

418 IFFNR¢30)>8THEN476 

420 PRINT" MMESUPERBATS HAVE CARRIED YOU AWAY! !!! | @" ‘ FORN@1 T0388 : NEXT 
438 CN=FNR¢100)+1 : IFCN=PTHEN49@ 

440 PaCN:PRINT"THEY DROPPED YOU IN CAVE “P : FORN©1 T03@@0 : NEXT 


498 IFCNCLORCN>1@80RABS(CN-P><> LANDABS(CN-P ><> 1LOTHENPRINT"CAN’T GO THERE! !":GOTO 


32 * GAMES FOR YOUR VIC20 


910 FORN@1 TONP : IFP=PT(N) THENS69 
320 NEXT 

530 IFTM=20THENG@@ 

340 [FWi=PORW2"PTHENSEO 


33@ GOTO169 © 

368 POKE36879,8: PRINT" SROURMMYOU FELL DOWN A PIT" 

378 GOTO330 

380 POKE36879,42:PRINT"SYOU WERE EATEN BY A & WUMPUSI II 1HI!i1" 
398 GOTO332 


680 POKES6879, 110: PRINT" “DORN YOU RAN OUT OF TIME &” 
618 GOTO339 


620 Sn ane HAVE NO MAGIC ARROWS a”: 


GOTO33 


DIGIT-DODGE 


In this graphics game you have 30 seconds to maneuver your 
patented Digit-Dodger around the screen, eating up the 
displayed numbers in the correct order, starting with 1. 
Once you have completed each set of numbers correctly, 
you will be given a new stage, with an added number. The 


game ends when you fail to complete a stage within the 30- 


second time limit. 

The game also ends if you crash into the obstacles, or hit a 
number out of sequence three times in a round. To move 
your Digit-Dodger use the “P” (up), “.” (down), “L” (left) and 
“3” (right) keys. 


READY. 


10@ POKES6879, 31 :PRINT"<2"; 

110 Sa2:SC=@: POKE36878, 15 

128 DEFFNRCX)#INTCRNDC 1X) : DEFFNXCX) 8X-INTCX/22) 822 

138 PRINT "<2" : FORN@1 T020+S820 : X@FNR (462) +44 : POKEX+7689. 168 : POKES840@+X, 8: NEXT 
148 FORN#1TOS 

158 X=FNR(462)+44: IFPEEK(X+7688) O32THENIS@ 

168 GOSUB44e 

170 POKEX+766@. N+176 : POKEX+96400, N+1 : NEXT 

168 CP=22:T1$="908000" :CS#1 :CR=g 

198 POKES6674, 139 

200 NP=CP+228¢ (PEEK(197)=13)-(PEEK(197)=37) )+(PEEK(197)=21 )-(PEEKC197)=45) 
210 POKES6874,@ 

220 IFNP=CPORNPC220RNPS@SORABS (FNX (NP) -FNX¢CP) 21 THENNP@CP : GOTO2E 
230 X=PEEK(NP+7680) 

240 IFX#CS+176THENGOSUB448 : SCaSC+(48-VAL (TIS) )8CS : CSaCS+1 :O0T02Z72 
250 IFKCOCS+1 76RNDKOSZTHENGOSUB459 : NP#CP : CR@CR+1 * IFCR#STHENG7@ 
260 PRINT" @MST IME: "RIGHTS(TIS,.2)"M SCORE"SC"E" 

270 IFCSSTHENSOO 

260 POKENP+3642@, 4: POKE768@+CP, 32: POKE768@+NP, 61 : CP@NP 

290 IFTI¢<"OOOC30" THENI9@ 

300 FORN@1 TOS : GOSUB4S@ : NEXT 

310 PRINT" SQRGRRRQRRRRORRORIAE TINE UP B” 


340 GETAS: TFRECD"Y"ANDRSO "N" THENS48 
ia IFAS="N" THENPOKE36879, 27 : PRINT "C28"; ‘END 
RUN 
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370 PRINT" RQRRG@RERES B TOO MANY CRASHES &" 

360 PRINT" WORORR GAME OVER &" 

399 GOTOS28 

400 FORN@128T0240: rs ‘ POKES6875 , N: NEXT : POKE96874, 8: POKE36875, 8 
410 CS=1 :S=S+1 : IFSDSTHENS#S 


440 FORN1=200T01 26STEP~1.: POKE36676,N1 ‘NEXT ‘POKE36876, 0 : RETURN 
452 FORN1=200T014@STEP-1°: ROKE36677, NI : NEXT : POKE36677, 0: RETURN 


READY. 


TAIL GUNNER 


You are the tail gunner in a Federation Starfighter, which is 
being pursued by a fleet of enemy spy planes. You must 
destroy them as they enter your sights. Each plane must be 
destroyed as quickly as possible to score the maximum 
number of points. If you exceed the time limit shown at the 
top of the screen, the enemy will inform their base and the 
game will be lost. 

To move your sights onto the alien, use the same keys as in 
Digit-Dodge (“P”—up, “.”—down, “L’—left and “:’’—right). 
Hit the “=” to fire when the alien is in the center of your 
sights. 


READY. 


100 CL=3Q720: DEFFNRCX)*INTCRND¢ 1 8X) : DEFFNX(X)=X-7668-INT¢ (X-7688) (229822: TT=30: 
BL=1.8 

118 POKE36879, 12:PRINT"*)"; 

120 POKE36878, 15 

130 PRINT"HTIME @0:"TT: PRINT" S@ROSORSRRRRBISCORE "SC" a"; 

140 FORN#1T022 

158 PRINT :PRINTTABC11)"2 @"; :NEXT: PRINT" QOD xa 9g” 
168 PR=7782: TI$="080000" 

170 NA=PA-22%¢ (PEEK ¢ 1979=13)-CPEEK( 1979237) )-C PEEK¢ 197) 221 )+(PEEK(197)#45) 
180 IFNACSPRTHENPOKE36877,, 130: POKE36874, 138 

198 GOSUB3S3 

208 POKE36877, 2: POKE36874,28 

210 IFPEEK(197)=46THENGOSUB260 

220 IFFNRCINTCDL> )=@THEN2SO 

230 NR@PA+22% CF NRC 39-1 9+FNRC3)-1 

242 GOSUB3S2 

250 PRINT "SRRRBE" RIGHTSC TIF, 2) 

268 IFYALCTIS$)=TTTHEN420 

278 GOTO17@ 

280 NA=20 : FORN@6121TO7932STEP-21 ‘ POKE36877 . 259 : POKE36876. 238 

298 POKEN, 78: POKEN+CL, 2:POKEN+NA, 7? : POKEN+NA+CL, 2 

308 POKE36877, 0: POKE36876, 0 : NR@NA~2 : NEXT 

318 NA@#20: FORN®6121T07932STEP-21 

320 POKEN, 32: POKEN+NA, 32 

330 NA=NAR-2 : NEXT: IFPACD791 1 THENRE TURN 

340 T1i=¥ALCTI$) 

358 POKE36877, 130: FORN=15TO@STEP-~1 : POKE36878. N: FORNA=1 TOS@ : NEXT : NEXT 
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368 SC#SC+TT-Ti : DL=DL+.2: TT=TT-2: IFTTCLOTHENTT#10 

378 GOTO11@ 

380 IFNAC77@Z0RNAD81850RABS (FNX CNA) -FNKCPAD > >1 THENNA=PA : RETURN 

390 IFPEEKCPA)<>16QTHENPOKEPA, 32 

480 IFPEEKCNAD<> LG@THENPOKECL+NA, 1: POKENA, 81 

41@ PA=NA: RETURN 

420 FORN@=1T08 : POKE36876. ABS<SGN¢ PEEK (36876) )-1)#198 : FORNA#1 T0350 : NEXT : NEXT 
430 PRINT " SORES H YOU RAN QUT OF TIME 8"; 
44@ PRINT" 3 a" 

45@ PRINT" SQQQGSANOTHER GAME ¢Y/N>" 

468 POKE198.0 

470 GETAS: IFA$<>"Y"ANDRE$<>"N" THEN4 78 

480 IFA$="N" THENPOKE36879, 27 : PRINT "<*38"; :POKE198.@:END 

490 RUN 

35@Q GOTOSe2 

318 RETURN 


READY. 


SPACE DOCK 


Your mission, should you decide to accept it, is to negotiate 
your shuttle through the star field, and dock with your safe 
port. To do this you must first master the control of the 
shuttle. You can only change the angle of rotation of the 
shuttle. This makes control difficult at first, but the skill can 
be mastered. 

The score you will get is determined by the level of the 
game you are at, and the speed with which you dock with the 
port. The difficulty level increases with each new round. 


1 GOTO2802 

10 PRINT") 86300 Gm" 

20 TIS="880800" 

38 POKECL+P. 2: POKESC+P, ROCRO> 

10@ REM 

118 GETA¢:POKE198,3 

16@ N=P+Ri¢RO> 

163 IFN#DTHENT#¥VALCTI¢) : GOTO608 

164 MM#PEEK(M) 

165 IFPEEK(CSC+N) #420RNC220RNDS@SGOTOSOO 

178 POKECL+P,@:POKESC+P. 32: POKECL+N. 2: POKESC+N. ROCRO) : PaN 
172 FORK#1T0200/S/1.5:NEXT 

198 IFA$="X" THENRO#RO-1 

200 IFAS="Z" THENRO=RO+1 

218 IFROC1THENRO#8 

220 IFRODSTHENRO=1 

238 GOTO100 

580 POKE36878, 15: POKE36877, 150: FORX#1T04a 

518 D=PEEK( 36879) : IF (DAND8) *@THEND=D+A : GOTO530 

S28 D=D-6 

338 POKE36879,D:FORY#1T08@ : NEXT : NEXT : POKE36878 . 8: POKE36877.. 8 
340 PRINT" SORRY O!) CRASHEDR” 

558 PRINT:PRINT"@ ANOTHER GAMECY/N> &” 

560 GETAS: IFR¢#"Y" THENRUN 

365 IFAS<>"N"GOTOS68 

578 POKE36879.27:PRINT"TE8"> ‘END 

608 POKE36878, 15: FORY#1T04 : FORK=128T0208 : POKE36876, X: NEXT : NEXT : POKE36879, @: POKE3 


6,8 
610 Mat+Se4Q- 18086 S=4>-20%¢T-18) : IFMCOTHENMaQ 
990 S=#S+,5: IFSD>4THENS#=4 
1808 POKE36879, 14: PRINT"T]"; :CL#36400 : SC#7680 
1818 FORK=1TOS#15:ReINTCRND¢ 1 #306) : POKECL+R, 1 : POKESC+R, 42: NEXT 
1815 RESTORE 
1020 FORX#1TO8 : READR1¢X) : NEXT : FORX#1 T04 : RERDROCX) : ROCK +4 =RDCX) : NEXT 
1038 DATA-22,-21, 1,23, 22) 2i sol 723, 93, 73, 64, 77 
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1835 PRINT"SHPRESS ANY KEY TO PLAY" 
1036 GETAS: IFAS=""GOT01836 

1048 RO=4:Pe22:Sa1 

1850 PRINT" ? 
1033 Ds INTCRND¢1)#43)+418 

1Q55 POKESC+D,81:POKECL+D, 2 

1068 PRINT" M@i"M 

1878 GOTO18 


2000 
2010 
2820 
2838 
2035 
2848 
2868 
2078 
2088 

THE 
2890 
2180 
2118 
2115 
211? 
2128 
2138 
2149 
2148 
2158 
2168 
2178 


POKE36879, 30: PRINT" "EE SPACE DOCK INGS" 

PRINT" MODS DO YOU WANT INSTRUCTIONS =" 

PRINT" MOGMOe CY OR NJ" 

GETAS: LFASCD" Y"ANDASC>"N" THEN2O38 

POKE198.6 

IFAS="N" THENSOQ 

POKE36879,127:PRINT""M@ SPACE DOCKING" 

PRINT" MA THE OBJECT OF THE GAME IS TO GUIDE YOUR SPACE SHUTTLE TO THE" 
PRINT"RED DOCKING PORT.":PRINT" ‘YOU MUST AVOID THE WHITE STARS AND ALSO 
TOP AND "; 

PRINT’BOTTOM OF THE SCREEN.IT IS SAFE TO LEAVE ONE SIDE OF THE SCREEN AND 


PRINT"REAPP-EAR ON THE OTHER. " 

PRINT" EMPRESS ANY KEY" 

GETAS: IFAS=""GOTN2115 

POKE198,9 

PRINT"SHOUR SCORE IS SHOWN ON THE TOP LEFT OF THE SCREEN.” 
PRINT’ M CHANGE THE DIRECTION OF THE SHUTTLE WITH:-" 
PRINT" MZ-ROTATE CLOCKWISE" 

PRINT" MX-ROTATE ANTICLOCKWISE" 

PRINT" MWPRESS ANY KEY" 

GETAS: IFA¢=""GOT0216@ 

POKE193.@:GOTO900 


7 we, oe 
7, 


GOLF 


Prepare yourself for the 18 holes of the Commodore Golf 
Course. You have two sets of clubs to help you get around 
the course under par. The first set is for use on the tee and 
the fairway, this being the stronger of the two sets of clubs; 
the other set is to use on, or near, the green. You enter a 
number in the range one to nine to select the strength of 
each shot. 

The first, stronger set of clubs has a maximum range of 
around 300 yards. The weaker set has a maximum range of 
about 60 yards. You will be told the par for each hole as you 
play it, and you will also be reminded of your current total 
and the related par. At the end you will be told your score, 
and the par for the 18 holes. You will hear the ball being hit, 
and bouncing to a stop as each shot is played. 


Bet CS 
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10@ N#RND(-TI> : POKE36878, 13 

110 DEFFNRCX>#INTCRND(1#X) : POKE36879. 93: PRINT "Ts" CHRS$( 14> 
120 GOSUB47@ 

138 HO#1:TS=0: TP=@ 

148 S#@:PRINT"TWOU RRE ON THE TEE AT HOLE"HO 

150 D=FNR(230>+100 : P=INT(D/6@> : IFPC2THENP=2 

16@ TP=TP+P 

170 PRINT" MAIT IS"D"YDS LONG,":PRINT"WITH A PAR OF “P 

168 IFS>@THENPRINT"SIDISTANCE TO THE HOLE:"D:PRINT"MSHOTS SO FAR: "S: IFD>4@THENPRI 
NT"MON THE FAIRWAY" 

190 IFD<2OTHENPRINT"ON THE GREEN" :GOT0210 

208 IFD<4@THENPRINT"MIN SIGHT OF THE GREEN" 

210 PRINT" MSELECT STRENGTH( 1-9)" : POKE198.8 

220 GETDS: IFD$¢"1"ORD$>"9" THENZ28 

238 S#S+1 

240 D1I=VALCDS)#(25+FNR(15> >: IFDC4QTHENDI=INTCDI/6) 

250 IFDCSANDD$<¢"3" THEND1=D 

260 IFDi=@THEND1=1 

261 POKES6877. 158: POKE36876. 200 : FORN#=1 T0S5@: NEXT 

262 POKE36876, 0: POKE36877. 0: FORN=1TOD1#7 : NEXT 

263 IFD1<2@THEN27@ 

264 FORM=1TOFNR(4>41 

265 FORN=1TO03@%(S-N> : NEXT 

266 POKES6877, 150: POKE36874.. 200 : FORN=1TOS@ : NEXT : POKE36877. @ : POKE36674.@ 
267 NEXT 

276 PRINT" MVOU HIT"D1I"YDS" 

280 D=ABS(D-D1> : IFD<=1 THEN310 

298 FORN=1T020@0 : NEXT 

300 GOT0182 

318 POKES6874. 138 

328 PRINT"*] SSeS LOP tel" 

33@ IFS>1THEN34@ 

333 PRINT" Oe WOW!!! ! A HOLE IN ONES@" 

335 FORN=1 TOS : POKE36874 . ABS ¢ SGN¢( PEEK ¢ 36874 > >~1#15@: FORM=1T03@@ : NEXT : NEXT : GOTO35 


340 PRINT" MYOU TOOK"S"SHOTS" 

350 PRINT" MTHE PAR WAS"P 

368 TS=TS+S 

37@ PRINT" MSHOTS SO FAR: "TS:PRINT"MTOTAL PAR IS"TP 
380 POKE36874.0 

390 HO=#HO+1 : IFHO#19THEN41@ 

480 GOSURS4@ : GOT0148 

419 PRINT" a": TP=TS-TP: IFTP=@THENPRINT"YOU EQUALLED THE PAR"GOTO4Sa 
42@ PRINT"M ‘YOU COMPLETED THE COURSE"ABS‘TP): 
430 IFTP>@THENPRINT" OVER. " 

44@ IFTPCQTHENPRINT" UNDER. " 

45@ GOSUB5S4@ 


466 RUN 

47@ PRINT" a VIC GOLF 4" 

480 PRINT" WHEN YOU ARE ON THE FAIRWAY 'YOUR CLUBS AREPOWERFUL ENOUGH TO HITOV 
ER 300YDS"; 


490 PRINT".<(CLUB 9> 

5@@ PRINT"W WHEN YOU ARE ON.QR IN SIGHT OF. THE GREEN THEY ONLY HIT AROUND 6@ 
MAXIMUM, " 

51 PRINT" IT WILL TAKE SOME PRACTICE IN CLUB SEL- ECTION TO GET UNDER OR EQU 
AL PAR ", 

520 PRINT" SCORES. " 

53@ GOTOS48 

$4@ PRINT" Nawaa PRESS ANY KEY M@":POKE198.98 

S50 GETDS: IFD$=""THENSSA 

S36@ RETURN 


READY. 


BREAKOUT 


This is a version of an old favorite. The object of the game is 
to score points by knocking the bricks out of a wall, using a 
ball which you keep in play by bouncing it back at the wall off 
your bat. You have three balls to play with. The game ends 
when the third ball goes out of play. The comma “,” moves 
your bat left, the slash “/” moves it right. 


108 S=0:LV=1:G0T0130 

118 Dv=-DY: SeS+(PEEK(30720+PP AND15 #10: PRINT" MBSCORE"S 
112 IFINT(S/S600)#S6O@=STHENGOSUBS@® : IFLY>1 THENLV@LV-1 
115 GOTO120 

12@ POKE36876, 240: POKE36876. 0: RETURN 

130 DS=" DUNNO” :R5=" PPPPRODEPESPRRDDRDDDDDT 
140 DEFFNR(X)=INTCRND(1#X) : POKE36878, 15 

150 SP$="s8 8 a= 

16@ GOSUB410 

17@ GOSUBS@O 

180 PY=11:PX=1:B=10:DX=1:DY=1 

198 NB=B+(PEEK(197)=29)-<(PEEK(197>=3@) : IFNBC1ORNB>19THENNB=B 
200 PRINT"M";D$;TABCB);" M4"; D$; TABCNB); "="; : BENB 
218 NY=P'+DY: IFNY=2ORNY=20THENDY=-DY : GOSUB120 

220 NX=PX+Dx : IFNX=10RNX=20THENDXe—DX 

230 IFNY=2QANDNXC> 1 ANDNXC>20THENDX=SGN(NX~B-. 5) 

240 IFNY=1 1ANDFNR(3)=1 ANDNXC1 SANDDY=1 THENNX=PX 

250 IFNY=2QANDBCNXANDB+ 1 <>NXTHEN3OO 

260 PP=NV#22+NX+7680: IFPEEK(PP>=2@8THENGOSUB! 10 

270 PRINT"M" ;LEFTS(DS, PY) LEFTS(R$,PX>" " 

280 PRINT"#" ; LEFTS(D$,NY) ;LEFTS(RS,NX) "Mie" : PX=NX : PY=Ny 
292 GOT019@ 

302 IFLV=STHEN3S@ 

310 PRINT "3" DS" tte LOST BALL a"; 

320 LV=LV+1 : PRINT" M"LEFTS(RS, 20)LV 

33 FORN=1T01000: NEXT : PRINT" M"DS""T}" SPSSPSSP$ ; 

34 GOTO182 

352 PRINT"3Qe"LEFTS(D$,10)",RRBBINGAME OVER" 

362 PRINT" XNBBBPRESS ANY KEY" 

378 FORN=1T01200: NEXT 

380 IFPEEK(197)=64THEN38O 

392 RUN 

402 FORN=1701000: NEXT : RUN 

41@ POKE36879,25:PRINT""M oa BREAKOUT #" 


420 PRINT" MMOVE YOUR BAT WITH- Wm a os 
43@ PRINT" @, -#— 7 = 
44@ PRINT" @ i 


450 PRINT"MMLEFT SIDE OF BAT HITS THE BALL TO THE LEFT AND THE RIGHT.TO THE RI 
GHT." 
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460 PRINT" MMNMBIPRESS ANY KEY TO PLAY" 

470 FORN=1T018@0: NEXT 

480 IFPEEK‘197>=64THEN48@ 

498 RETURN 

58Q@ POKE3SE6879., 8: PRINT" ata s"; 

318 FORN=1T02@:PRINTSP$; : NEXT 

520 PRINT" Meee" ; 

53@ FORN=7TOLSTEP-1 :PRINTMIDS<(" SQSBGER LN, LETT TT TTT ITT TT tT) ae"; NEXT 
540 PRINT" SBISCORE"S IORRORPRRROPRPDPORIBALL "LV 

55@ RETURN 


READY. 


MOONBASE 


You are on laser duty on the moonbase, and your job is to 
protect the blue city on the screen from an alien bomber. 
You are aided by a two-level concrete barrier. The alien will 
try to bomb his way through this to reach the city below. 
Your base serves two purposes: 


1. To shoot down the alien 
2. To cover up holes in the concrete barrier 


You score points just for surviving, and gain a bonus if you 
manage to shoot the alien down. If you beat the high score, 
you can enter your name (up to eight letters). ‘“Z’’ moves you 
left and “C” moves you right. Press F7 to fire. 


@ GOTO96 

1 POKE36874. 1590: FORK=P-22T07944STEP-22 : CHePEEK(X) : POKEX, 103: POKECL+X, 7 
2 IFCH=9STHENSC#SC+S@@ : POKE36874, 0 : GOSUB2Z000: D#D+. 1: GOTO18S 

4 GOTO238 

1Q@ POKE36877. 15@: FORX#PA+22T08164STEP22 : CH@PEEK(X) :‘ POKEX, 183: POKECL+X, 7 
13 IFCH#i6Q@THENPOKEX, 32: POKE36877., 8: GOTO238 

20 IFCH#1QSORCH#162THENGOSUB2O0@ : COTO3008 

25 POKEX, 32: NEXT 

96 H1=300: CL=36400-7680 : NAS="VIC~20" 

97 DEFFNK(X) =X-7660-22* INT ( (X-7680)/22) 

98 POKE36879,9 

99 LL23:SC=#@:D=,2 

108 GOSUBS388 

185 POKE368786, 15:GOSUB12G0 

11@ PA=7778:Q=9 

128 P=6054 

208 IFPEEK(197)=63THEN! 

218 N=P+2m¢ (PEEK (197)#93)-(PEEK( 197234) > : IFNCB@S40RN>8074THENN=P 

220 POKEP, 16@:POKEP+1, 160: POKECL+N., 2:POKEN, 105: POKECL+N+1,2‘POKEN+1.95:P=N 
238 SC#SC+1: PRINT" MISCORE"SC 

248 Q=Q+D: IFQC1 THENZOO 

244 POKE3S6876, 148 

245 IFRND(19<. 1STHENGOTO18 

246 029 

258 NA=PA+2%¢SGNCRNDC19-RNDC 19> >+22MINTCRNDC 19+. 2) 

268 IFRBSCFNXCNAD-FNX¢PAD ) >2THENNA=PA 
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278 IFNADSBS4 THENGOSUB2Z000 : GOT01208 

288 POKEPA, 32: POKEPA+1 . 32: POKECL+NA. 4: POKENA, 95: POKENA+CL +1, 4:POKENA+1, 105: PA=NA 
298 POKE36876, 8: GOTO2Z89 

997 POKE199.6 

998 GETRS: IFAS=""THENS9S 

9399 END 

1008 PRINT" [DORRIT Sal _ 
1Q1Q PRINT” rXQUeeaneiaaanInOINNINNINIRIINININS ” ; 

1020 PRINT" IBSSCORE"SC:PRINT"HI"HI; NAS" PLL 

1200 PRINT" 'SO0QOOORBSRRBIGANE OVER" 

1210 .FSCHITHENHI#SC : POKE 198. @: INPUT "NAME" > NAS: NAS*LEFTS$<NA$, 8) 


1248 FORK#=1 T0300: NEXT 

1258 GOTOSS 

2088 POKES6877, 180: FORK#15TO@STEP-1 ‘ POKE368798. x‘ FORN# 170109: NEXT : NEXT : POKE36877, 

@: RETURN 

3008 LL*LL=~1 : IFLLO@THENIQS 

3818 GOT01200 

3800 PRINT" iT) MOONBASE“ 

3010 PRINT"M ‘YOUR MISSION IS TO PROTECT YOUR MOONBRSE (aaMWl).FROM THE ALIEN" 
3820 PRINT"BOMBER HOVERING ABOVE" 

3838 PRINT"THE MOONBASE IS PROTE-CTED BY TWO SHEILDS ("ai M).YOU CAN HELP IN 
TWO WAYS-" 

3840 PRINT"M 1) REPRIR THE TOP SHIELD BY MOVING YOUR CANNONC #7 WDOVER IT" 
5@5@ PRINT" 2) BY DESTROYING THE ALIEN WHEN IT IS LOW ENOUGH" 

3068 PRINT"M@ PRESS ANY KEY" :POKE198,2 

5078 GETAS: IFA$=""THENSO7@ 

3@8@ PRINT"-TO MOVE -" 

5898 PRINT" MLEFT-2Zm" : PRINT" SRIGHT- 20M" : PRINT" MF IRE-SF 78" 

3198 PRINT" MTHE LONGER YOU SURVIVE. THE MORE YOU SCORE. S@@ POINTS ARE SCORED FO 
R"; 

3118 PRINT"HITTING THE ALIEN" 

5128 PRINT" A LIFE IS LOST IF THE ALIEN HITS THE MOON- BASE(RMIDOR YOUR CANNON” 
3138 PRINT" THE GAME ENDS IF THE ALTEN LANDS” 

3148 PRINT"XPRESS ANY KEY TO PLAY" 

3150 POKE199,@ 

3168 GETA$: IFAS=""THENS168 

3178 RETURN 


READY. 


LIFE 


This is one of the most famous computer simulations, in 
which the evolution of a colony of cells is created on the 
screen. The life, death and birth of cells follows the rules laid 
down by John Conway, who invented the game: 

1. Ifacell is surrounded by less than two other cells it will 

die of loneliness 

2. If acell has two or three neighbors it will survive to the 

next generation 

3. If an empty space has three neighbors a new cell will be 

born in that space in the next generation 

4. If a cell has four or more neighbors it will die from 

overcrowding 

You enter your own pattern of cells at the start of the 
game. To add a cell, you enter the row and column of the 
position in which you want it to appear. If you change your 
mind, you can delete that cell by entering the coordinates 
again. Enter “@” for the “across” number to start the process 
of LIFE. 

You have three controls which you can use while the 
generations are evolving (note that these keys must be held 
down until the required reaction is seen). The controls, and 
their effects, are: 

Fl—this delays generation development until the key is 
released. It is useful if you wish to study a certain pattern 
F3—this clears all cells and restarts the game 

F5—this restarts the game with the current pattern intact 
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READY. 


16@ POKE36879,93:PRINT"2"; 
118 DIMM(1,10, 18> 

128 G=0 

138 GOSUB25@ 

140 INPUT" MACROSS"; X: IFK@QTHEN190 

15Q IFXCLORX29THEN14@ 

160 INPUT" MDOWN" ;Y: IF'YC1ORVY>9THEN160 

178 MCL, ¥)=ABS(MCL,X, ¥9=1) :GOTO130 

180 FORY=1T09:FORK=1T09:CeM(O,X-1, 7-1) 4M6Q,X-1,V24MCO, XH1, VL 4M(O,X, 7-1 MO, X, 
WL) 

198 CaCO, X41, V1)4MCO, X41, YD4MCO, X41, VHLD 

200 IFC#3THENM(1,%,Y=1 

210 IFCC20RC>3THENM(1,X,1)=0 

220 NEXT: NEXT 

238 G=G+1 :GOSUB250:G0T0190 

240 END 

250 IFGC2THENPRINT "2" ; 

260 PRINT"a LIFE 

270 IFG>@THENPRINT" Maa GENERATION: #'G 

280 PRINT" Wad 123456799 &” 

290 FORV@1T09: X$=" gt" +RIGHTS(STRECY), 1)4+°M" : PRINTXS; 
30@ FORX#1T09: IFMC1,X,¥)=1THENPRINT"%@" ; :GOTO320 
310 PRINT"Mo" ; 

320 MCB, xX, ¥—MC1, X,Y) NEXT : PRINTX$ | NEXT 

330 PRINT" ga 123456799 & 

348 CaPEEK(197) : IFPO64THENS6O 

35@ RETURN 

360 POKE198,@: IFC=39THEN34Q 

370 IFC#47THENRUN 

380 IFC#SSTHENI2O 

390 GOTO3S0 


READY. 


FRUIT MACHINE 


In this fruit machine simulator, you start with ten coins. 
These are shown in the “tray” at the bottom of the screen. 
Each shot costs you one coin, and there are two ways you 
can win: : 

1. Two of a kind, such as BELL-BELL-ANY 

2. Three of a kind, such as SWORD-SWORD-SWORD 

The amount you win depends on the winning fruit. BAR is 

the highest, and CHERRY is the lowest. Your winnings are 
paid into the tray at the bottom. The game ends if the tray 
fills or empties. There are two aids you can employ: 

1. HOLD—when this occurs you can hold any or all of the 
reels by pressing the numbers one to three (left reel is 
one). You can cancel a hold on a reel by pressing the 
reel number a second time. Press the space bar when 
you wish to restart. 

2. NUDGE—when this occurs you will be given one to 
three nudges. To nudge a reel, use the same key as you 
used for HOLD. If you do not wish to use all your 
nudges, press SPACE. 

Note that the SPACE BAR is used as a “start button.” 


100 DEFFNRCX)=INTCX@RNDC 1) > 

110 POKE36879. 56 : PQKE36878, 15 

120 PRINT" "Ma FRUIT MACHINE ge; 

130 PRINT" 3@QQQQQ3 0 9 queue ees cos 8 

14@ PRINT’ QQR 0 Wed? Geel!’ Gee? 

150 PRINT" 390080080088808 ——__—_—_—_——————_. a" 
i6@ MC=1Q: DC=@:GOSUBG1@: DIMA$¢7> : FORN@@TO7 : READAS (ND :ASCND @ASCND+""YTY" - NEXT 
17@ DC=-1 : GOSUB61A 

i186 PCKE36874, 148 : POKE3S6877,. 148 

190 PRINT" QRRROR@ORR" > - FORN@=1T03: IFHCN)#OTHENPRINTAS(Q> “aad Se"; :GOTO2Z18 

200 PRINT" S@@OGGM" ; 

218 NEXT 

220 FORN#=1 701008: NEXT 

238 POKE36874. 6: PCKE36877.@ 

248 FORN=1703: IFHCN)=@THENR(N)=FNRC7)+1 
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250 NEXT 

260 PRINT" QRORRRI" ; - FORN=1T03:PRINTRSCRCN) > "SSS ae"; 
270 IFHCN)®@THENPOKE36877.. 240 : POKE 36874, 248 

280 FORNI=1T05@ : NEXT 

299 POKE36877, 8: POKE36874,@ 

30@ FORN1=1T0480: NEXT 

318 NEXT 

320 IFFNR“<6)>@THENSSO 

33@ DC=FNR(9)+1 

340 FORN=1TODC#2 : POKE36874, ABSCSGNCPEEK (36874) )-1)%200 : FORN1=1 TOS@ : NEXT : NEXT 
352 PRINT" SOSSRRODRRRORSRPISINUDGE B" DC 

368 POKE199,9 

378 GETAS: IFAS=" "THEN4S43 

380 IFAS<C'1"ORAS>"3"THENS78 

398 GOSUB67@ 

400 DC=DC-1 > N1=VALCAS) :-RCN1)SFNRC7 > +1 

418 HCN1>9@ 

420 PRINT" OQQQDORRR" > -FORN#1703 > PRINTASCRON? "age BM"; NEXT 
43@ IFDCD@THEN35O 

440 PRINT" ODS RPREROORRRRDTS ss 

450 DC=0: iFR61)*R(2)THENDCeR( 1) : TFR62)*R¢ 3) THENDC#2#R¢ 1) : TFRC19=7THENDC2DC+6 
46@ IF DC>OTHENGOSUBE 18 

470 FORN=17T03 :H<N)=@: NEXT : GOSUBSS@ 

480 IFFNR(6)2Q0RMC=@THENSS@ 

490 FORN®@1T16 :POKE36376, ABS¢SGN(PEEK ¢ 36976) >-1)#2280 : FORN1 2170308 : NEXT : NEXT 
228 PRINT" SOORISHHOL DB" 

518 FOKE193.0 

S2Q SETA¢ IFAS=" "“THENPRINT " 3OQOOt ": GOTO17@ 

338 IFASC"1L"ORAE>" 3" THENS20 

540 SCSUBE7@ :‘NI=VPLCAS) 

S5@ HCN) ®ABSCHCN1)-1 : GOSUBSS@: GOTOS1@ 

560 IFMC2@THEN?19 

578 POKEL98. 0: PRINT" SOOO RSPRRRRISES TARTS" 

580 SETA¢: iFRS<>" "THENS32 

339 PRINT" SOOODPRPRSRERI ": GOTO178 

688 GOTI6e2 

618 MC=aMC+DC 

620 TFMC>132THENSS@ 

630 IFDCS@THENGOSUBS79 

648 PRINT “OOOO | IFMC=OTHENPRINT" "; ‘RETURN 
650 FORN#@1TOMC:PRINT"fB"; :NEXT: IFDC=-1THENPRINT” "5 
5628 RETURN 

678 FORN#200TO0127S57EP-1 : POKE36875, N: NEXT : RETURN 

6380 POKE36879,3:PRINT "<3"; 

690 PRINT" WQGGsa YOU M% BROKE & THE BANK ‘aR" 

708 GOTON738 

718 PRINT"<M"; :POKE36879, 42 

720 PRINT" QQQRRORBSRRRIE GAME OVER &" 

738 FORN#=1T01800: NEXT 

740 PRINT" MMMPRESS ANY KE TO PLAY" 

750 IFPEEK(197)=64THEN7S@ 

76Q POKE193.9:RIIN 

77O DATA" RRS CIN" 

733 DATA"S 4’ "OR0ON~ 2/8088 AY Ge. 

7398 DATA" EGG -t/ SUG — enn . 

860 DATA" G/MISGR Wee WEREMCCCTESEE co * 

318 DATA" WSGti2’ HRN S 5 WES Sl" 

20 DATA" “i OSS | | Bae eee" 

$38 DATA” WER 5S GUE 2/\2 Seae! i 

848 DATA AG MOGSOMERR KERRET Weleh B" 

356 PRINT" SRNR" |: FORN=1 703: AS=" ": TFHCN) =] THENAS=£" SeHOL Te" 
B60 PRINTAS"RM" : : NEXT> RETURN 

878 rORN=:TQ8 : PCKE2697°6. ABSCSGNCPEEK (36876) >~< #240: FORN1=1702@ NEXT NEXT : RETURN 


READ. 


SPOTS FROM 
OUTER SPACE 


In this arcade-style game (sounding like a particularly un- 
pleasant disease) you must protect your home planet from 
invading spots. If you are hit by a missile dropped by the 
spots, or if the spots land, you will be killed. When you are 
killed, or you defeat all the spots, the game will automatically 
restart. Your laser base is controlled by the “Z” (left), “X” 
(right) and “*” (fire) keys. 


3S POKE639, 255 

1Q PRINT" 

15 Fa38 

16 M=12 

20 POKE36867, 34 

25 He INTCRNDC1)#22)+7798 

3@ POKE36879, 42 

31 POKE196,8 

32 PRINT" MQ8SPOTS FROM OUTER SPACE" 
33 PRINT" MESKILL LEVEL?” ‘ PRINT" 1-48" 
34 INPUTG 

38 PRINT".Q" 

48 A=7998 

S@ PRINT" 0@080000086 6 6" 
60 PRINT"#@@e@eeeeeeee " 
70 PRINT") @0@0660600686 8 6" 
80 PRINT"S@eee0000060686" 
208 REM GENERAL ROUTINE 

21@ POKEA,65 

228 DeINTCRNDC1)8G)+1 

230 IFD=1 THENF#F+1 :PQKE36865, F 
231 IFDel THENA®A-22 :POKER+2Z2, 96 
232 IFD#1 THENM@M+INTCRNDC1)#3)—1 
233 POKE36964,M 

234 POKEH, 96: H=H+22 : POKEH, 93 

236 IFH>801@ THENH*INTCRNDC1)#22)+7790 
237 IFPEEKCH+22)865 THEN7@@ 

240 IFPEEKCA)#81 THEN708 

245 IFAC7688 THEN7@9 

250 REM CONTROL 

269 GETAS 

270 IFRS#"Z" THENA#A-1 : POKEAR+1 . 32 
260 IFAS®="X" THENA#At+! : POKER-1,32 
290 IFAS="%" THENSOO 
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308 GOTO28 

508 REM FIRE 

318 BeA-22 

520 POKEB, 32: BeB-22 

530 POKEB, 34 

53S POKEH, 96: H=sH+22 : POKEH, 93 

336 IFH>6@032 THENH#INTCRND¢ 1 )#22)+7799 
337 IFPEEKCH+22)865 THEN7@O 

340 IFPEEK(B-22)881 THENSS82 

342 IFBeH THENH#INTCRND(1)822)+7798 
343 IFBSH THEN2OO 

345 IFBC7678 THEN2@S 

538 GOTOS28 

380 POKES, 32: POKEB-22. 32 

362 C=C+1:IFC#42 THEN6OS 

398 GOTO20 

60@ PRINT" QMWELL DONE! !" 

618 POKE36867, 46 


70@ PRINT" THE’VE KILLED YOU!!!!" 
710 POKE36867, 46 : POKE36865, 36 
720 FORM=1T02000 : NEXT : RUN 


DESTROYER 


This program was written by Adam Burbidge. A spaceship (a 
greater-than symbol) will move from left to right against a 
background of deepest space. The object of the game is to 
destroy hostile aliens who will blast your ship to smithereens 


e 


P| | 
s 
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unless you are very careful. An alien can only be destroyed if 
it lies within five spaces directly in front of you. Points are 
scored according to the color of the aliens. “A” moves your 
ship down, “B” moves it up, and you press “P” to fire. 

Warning: the aliens move very quickly, and their advanced 
technology allows them to become invisible from time to 
time. They can still damage you while invisible. 


100 DIMZ¢S),AC9) 
11@ REMBSDESTROVER 


128 BURBIDGE 

138 I83' DeINTCRNDC 12818) 
148 K¢1)#8@:G=7988 

130 PRINT" 

160 B=B+1 

170 C=INTCRND< 1 )#S06)+7688 
168 ACB)=C 

198 DeD-1: IFDC1THEN210 

200 GOTO169 

21@ POKE36879.6 

220 POKEG, 62 

238 E=d 

248 FeACE) 

258 E=E+1 

262 POKEF. 35 

278 Z62) "INT CRNDC 1 88) 

280 POKEF+30720, 2¢2) 

298 IFE#9THEN3S1@ 

388 GOTOZ48 

318 26@)sINTCRNDC1 87) 

328 GOSUB107@ 

338 POKEG, 32: FORT=1T010: NEXT 
348 POKEG, 32: FORT#1T0100: NEXT 
358 GeG+1 *K(O)#K(8)+1 

368 IFK(O)222THENK(@)=0 
370 IFPEEK(G-22) #35 THENS28 
360 IFPEEKCG+1 )=35THENS20 
398 GETHS 

400 IFG<7688THENG=6165 
410 IFGD616STHENG=7688 
420 IFHS=""THEN47@ 


98 
490 B=INTCRNDC1>#9) 
3@8 POKEACB) 32 
318 CeINTCRNDC1)84)41 
320 IFC@=4THENACB)#ACB)+22 
530 IFC#3THENACB)#ACB)~22 
548 IFC#2THENACB)#ACB)-1 
35@ IFC#2ZTHENACB)#ACB)+1 
562 IFACB)<768QTHENACB)=7680 
57@ IFACB)<GTHENACB)#ACB) +22 
588 IFACB)>GTHENACB)#ACB)-22 
598 POKEACB)+30729, INTCRND‘ 187) 
6@@ POKEACB), 35 
618 GOTO332 


DESTROYER ° 53 


620 IFPEEK(G+1)=35THENPOKEG+1, 182: GOTO768 
630 IFPEEK(G+1 #2 18THENPOKEG+1 , 162: SC=8C+29 : GOTO788 
640 IFPEEK(G+2)=3STHENPOKEG+2, 102: GOTO768 
658 IFPEEK(G+2)=218THENPOKEG+2, 162: SC=SC +29: GOTO728 
660 IFPEEK(G+3)=35THENPOKEG+3, 162: GOTOSSS 
670 IFPEEK‘(G+4)=33THENPOKEG+4, 162: GOTOG20 
660 IFPEEK(G+5)=35THENPOKEG+S, 102: GOTO849 
698 GOTO330 

708 SC#SC+PEEK(G+30721 #108 

718 GOTOSSe 

720 SC#SC+PEEK(G+38722)8108 

730 GOTOESO 

748 SC#SC+PEEK(G+307238108 

798 GOTOSSe 

768 SC#SC+PEEK(G+30721 818 

778 GOTOGSe 

782 SC#SC+PEEK(G+30722)818 

798 GOTOSSe 

800 SC#SC+PEEK(G+98723)810 

818 GOTOBSe 

820 SC=SC+PEEK(G+90724 818 

838 GOTOSSe 

840 SCHSC+PEEK(G+30725)m10 

838 POKES6877, 126 

860 POKES6876., 15 

878 ACB)=@ 


938 POKE36877. 228 

948 FORL#1STO@STEP-1 

958 POKE36676 »INTCRND¢1)#128)+126 
968 POKE36878,L 

978 FORM=1T0100 

982 NEXT 

998 NEXT 

1808 POKE36877,9 

1819 POKE36876,28 

1026 PRINT" S&SCORE : "SC 

1838 [=I-1 

1040 IFI@OTHENPRINT" adel GAME OVER "CLR: 193: DeINTCRND( 1810) :FORT#=17010@0:N 
EXT 

1050 FORT#1T01000 : NEXT 

1068 GOTO142 

1878 2¢1)#INTCRNDC 1 )#22)+8143 

18968 Z¢3)#INTCRND‘C 183) +4 

1898 POKEZ(1),218 

1108 POKEZ‘1)+30720,2¢3) 

1118 RETURN 


READY. 


CAR RACE 


Kevin Smith’s game puts you at the wheel, the aim being to 
drive your car for as long as you can before the inevitable 
crash when your attention wavers. 

The controls you have on your VIC-mobiles are: 

“Z"—right 

“xX” —left 

Cursor down—accelerate 

Cursor right—brake 

First gear—F1 


Second—F3 
Third—F5 
Fourth—F7 


1 PRINT"<] CAR RACE", , "MZ=LEFT:X#RIGHT" 
2 PRINT" MGEERS", ."Fi=FIRST:F4=FOURTH" :PRINT"MAROAD THICKNESS?" 
3 PRINT"(1,2,3,4] 

4 GETCS: IFC$=""THEN4 

3 C=?690: B28 

6 POKE36879,4¢ 

7 12188 

8 POKE6S@, 255 

18 PRINT"<)" 

19 K=#36874 

28 A@INTCRNDC1)#9)-1 

21 POKEK, 94 

22 POKEK,@ 

23 POKEK, 94 

24 POKEK,@ 

25 POKEK, INTCRND(1>#18)+186 
38 ExC+D 

Ji POKEK,@ 

32 POKE36878, 15 

53 POKEK, 189+INTCRND¢ 186) 
68 POKEE. 88 

62 POKE36874,9 

65 GETBS 

78 IFB$="2" THEND#=D-1 

73 IFBS="X" THEND=D+1 

78 IFBS="C" THENGL 

79 GOTO82 

61 GETBS: IFBS=""THENS1 

82 IFB$="—" THENI=100 
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64 IFBS="%" THENI#=70 

66 IFBS="%" THENI #53 

6S IFBS="—I" THENI=25 

90 IFBS={"" THENS@O 

92 IFBS="%" THENI#I-5 

188 BeB+h 

182 POKEK,93 

11@ IFBC1 THEN B=B+i 

111 IFB>15 THEN B=B-1 

115 G=G+1 

116 POKEK,@ 

117 IFC$=s"1" THENPRINTTABCB)" pa Bee" 
118 IFC#="2" THENPRINTTABCB)" Gio map" 
119 IFC$="3" THENPRINTTABCB>" es 86a" 
120 IFC$="4" THENPRINTTABCS)" ae 86" 
121 POKE36876, 15: POKES6874, 193 

123 IFPEEKCE)#1@2 THEN3SO@ 

125 POKEE, 88 

126 POKE36874,0 

128 POKEK, 192 

129 POKEK,@ 

13@ FORT#1TOI : NEXT 

132 POKEK, 95 

158 GOTO2@ 

30@ POKE36878. 12 

385 POKES6874, @ 

310 FORL#1T010 

328 FORM@2S@ TO 240 STEP-1 

338 POKES6676,M:NEXTM 

348 FORM=249T0250 

350 POKE36676,M:NEXTM 

368 POKE36676, 0: NEXTL 

378 POKE36878. 2 

375 PRINT"<2" 

368 PRINT"YOU KEPT ce FOR ";G/40;" MILES! |" 
390 FORM=1T02000 : NEXT:R 

508 I#f+35 

wOS POKES6678, 13 

J1@ FORL#=235T0245 

520 POKE36876,L 

338 FORM={T010:NEXTM 

948 NEXTL 

JS@ POKE36876, @ 

368 G0T0180 


READY. 


SUB CHASE 


You are the captain of the HMS Victory, a CBM class sub 
hunter, and your mission is to destroy the enemy subs 
lurking below you. You are armed with a limitless supply of 
depth charges; but stay alert, because the subs can hit back 
with their missiles. 

A running total is kept of the number of subs sunk, as well 
as the number of hits the subs have scored on your ship. The 
two totals are shown at the top of the screen. Use the 
following controls for your ship: 

“Z"'—Move left 

“C’—Move right 

“B’’—Drop depth charge 
Note that only one depth charge can be in view at a time. 


1 REM#SUB CHASE 

2 REM#K. STRPLES 

28 $3=36876 :S2=36875 : S=36877 : ¥=36978 : OS$=" . 
1@@ PRINT"SXHOOSE HOW HARD YOU WANT THE GAMEC8~-1) Mi IS THE HARDEST" 
110 INPUT" CHOOSE GAME"; G: IFGC1ORGSTHEN! 12 

120 PRINT"(HH 4k SUB CHASE sake" 

13@ PRINT"Z-LEFT.C-RIGHT. B-D/CSa" 

149 FORI#170374: POKE7611+1, 102: POKE38531+1,3:NEXT 

15@ GOSUB1@0@ : GOSUBZ000 *U¢1>=T3: D161) 2T2 : GOSUB2Z080 ‘UC2)=T3:DIC2)=T2 
160 IFPEEK(197)234THENA=A+t 1 : GOSUB1800 

17@ IFPEEKC197)=33THENR=A-1 : GOSUB1900 

180 IFDIC1)=1THEN2Z32 

19@ CL SUCL9 41° TCL sTC1 +1 

200 IFT¢1s20THENU=UC1 > : GOSUB210@: T¢1)=8: GOSUB2Z2000 °UC1>=T3: DIC 1)=T2 
210 POKEUC1)-2, 102: POKEUC1)—-1,60:POQKEUC1), 149: POKEUC1)+1,62 

220 POKEUC1)-23, 102 :POKEUC 1-22, 93: GOTOS6@ 

230 UCL SUCLI-1: TCL) ST C1) 41 

240 IFTC(1)=2@THENU=UC1 > : GOSUB2180: T¢1)=0 : GOSUB2006 ‘UC 1)=T3:DI¢C1)=T2 
258 POKEUC1)-1,60:POKEUC1), 149: POKEUC1)+1,62:POKEUC1)+2, 102 

268 POKEUC1)-22, 93: POKEUC1)-21, 182 

388 IFDC#1THENC1#C1+22 :GOT0S28 

310 IFPEEKC197)s35THENDC=1 :C1=7836+A 

S20 IFDC#1THENPOKEC1, 81 :POKEC1-22. 162: IFC1>8164THENPOKEC1 . 182: DC=@ 
33@ IFUC1)"C1THENU=UC1 > : GOSUB3080 : GOSUB3688 

340 IFUC2)8C1THENUSUC2) : GOSUB3OG@ : GOSUB3608 

680 IFMR=1THENM=M-22 : GOTO620 

618 GOSUB4800 
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620 IFMR=1THENPOKEM, 42 : POKEM+22, 182: IFMC781 1 THENPOKEM,. 32: MR2=Q 

630 IFM=7792+RORM=7791+AORM=7793+ATHENU=M : GOSUB3G0@ : U=M+88 : GOSUBSe00 
788 IFDIC2)=1THENS3O 

798 UC2.2UC2941 > TC2.8T(2)41 

880 IFT(2)=28THENU@U(2) : GOSUB210@: T(2)=8 : GOSUBZ@@8 : UC 2)=T3: DI(2)=T2 
810 POKEUC2)-2, 182: POKEUC2)-1, 60: POKEUC2),. 149 : POKEUC2)+1,62 

8280 POKEUC2)-23, 102 :POKEUC2)-22, 93: GOTO999 

838 UC2)8UC2)-1 > T62)2TC2)+1 

842 IFTC2)*20THENU@UC 2) : GOSUB2190 : T(2)=8 : GOSUBZ10@0'UC2>=T3:DI¢2) Te 
850 POKEUC2)>~-1,68:POKEUC2), 149: POKEUC2) +1, 62 : POKEUC2)+2, 182 

868 POKEUC2)-22, 93: POKEUC2)-21, 182 

870 IFMS=1THENM1=M1-22 :GOTOS92@ 

882 GOSUB41900 

698 IFMS*1 THENPOKEM1 . 42: POKEM1+22, 102: IFM1<7811 THENPOKEM1L. 32:MS=@ 
900 IFM1#®7792+A0RM1=7791+AORM1=7793+ATHENU@M 1 +88 : GOSUB7e88 

999 GOTO168 

1000 POKEYV, 15: FORJ=221 T0244 : POKES2, J 

1003 FORJ12=1T0O5:NEXTJ1,J:POKES2,0:PQKEY,@ 

1005 IFAC@THENA=@ 

1818 IFAD17THENR#17 

1820 PRINT"3QM@8"TABCAD" | " 

1030 PRINT*@@O@8"TABCAD" aw" 

1049 PRINT" OQ@@8"TABCAD" “a ay” 

1058 RETURN 

2000 T2=INTCRNDC1 #2941 : IFTZ2*1 THENZO38 

2028 T3*7837+C¢ INT CRNDC 1 913)+1>#22 > RETURN 

2030 13=7876+¢ INT CRNDC 1 9#13>+1%22 : RETURN 

2109 POKEU~2, 182: POKEU-1, 102 :POKEU, 102 : POKEU+1, 182: POKEU+2, 182 

2120 POKEU-23, 102 : POKEU-22, 102: POKEU-21, 102 : POKEU-44, 182: RETURN 
30@@ POKEU-1,77:POKEU, 93: POKEU+1, 78 : POKEU-22, 93 

3318 POKE36879, 47 : POKES, 220 

3320 FORJ=15TOOSTEP-.@3 :POKEYV, J: NEXT 

3538 POKES. 0 :POKE36879, 27: RETURN 

3690 POKEV, 15:POKES, 254 

3618 POKEU-1,6@:POKEU, 149: POKEU+1,62 

3620 POKEU-23, 182 : POKEU-22. 93 : POKEU-21, 182: POKEU~44, 182 

3638 IFUD8164THENGOSUB3O@@ : GOSUB2162 : GOSUB2896 : GOTO3630 

3648 UsU+22 : GOT03690 

3650 [FUC1)#C1 THENUC1)2T3:DI¢192T2: DC=0:C128:1T¢1)28:SS#$S+1 > PRINT" SOQESUBS" SS: RET 
URN 

3668 IFUC2)sC1THENUC2)273: DI (2272: DC=8 C120: T2958: SSeSS+1 :- PRINT" SSUBS"SS 
4080 RL=INTCRNDC19#9)+1 : IFRIDGTHENMR#1 > M=U¢1)> 

4828 RETURN 

4108 RI=INTCRNDC1)%9)+1 : IFRLDGTHENMS=1 -M1*UC2) 

4120 RETURN 

$800 POKEV, 15: POKES, 234 

5818 PRINT "OGM" OSS : PRINT" 39@OG8" OSS : PRINT "MOORS" OSS 

58@2@ POKEU-1,95:POKEU, 160: POKEU+1 . 183 : POKEU-22, 168 : POKEU-44.,93 

383@ POKEU-23, 182 :POKEU-21, 102 :POKEU-66, 182 ° 
30428 IFUD8164THENGOSUB3O89 : GOTOS869 

5858 UHU+22 : GOTOS828 

35069 GOSUB216@ 

5070 R=@: DS=DS+1 : PRINT “3SRORORERBISHIPS" DS : GOSUB100@ : MR=@ : M=@ : RETURN 
6008 POKEV, 15: POKES3, 220: FORJ=11T0S : NEXT : POKES3. 8: POKEV, 0: RETURN 
7@@@ POKEV, 15: POKES, 254 

7818 PRINT" 300" OSS : PRINT "3@@GG0" 0S$ : PRINT" SO@RGE" OSs 

7028 POKEU-1,95 :POKEU, 168: POKEU+1, 185 : POKEU-22, 16: POKEU-44, 93 

7832 POKEU-23, 182: POKEU-21, 182: POKEU-66, 162 

7048 IFUD8164THENGOSUB3@Q@ : GOTO07868 

7@SO Unlj+22 : GOTO7828 

7869 GOSUB2190 

7078 A=@:DS=DS+1 : PRINT "SOSVOPRRSBISH IPS” DS : GOSUB100@ : MS=@ : M1=0 > RETURN 


READY s 


REVERSI 


In this program (much like the game Othello), written by 
Mike O'Neill, you play against the computer which can put 
up a pretty mean fight. The program uses simple but very 
effective algorithm where each square is allocated a “prior- 
ity” from one to sixty. The computer looks at each square on 
the board, in order of priority, until one is found where a 
move is possible. The program checks that you’re not cheat- 
ing, and will know if a move is not possible. 

If the computer has already moved, but you can’t move, it 
will move twice. If you have just moved, and there are no 
moves for it, you will get another go. This will only happen 
rarely. If neither player can move, the game is over. At the 
end of the game the final score is shown and you have the 
option of starting a new game, or terminating the program. 


1 $2236875 : VV¥=36878 : POKE36879, 88 : PRINT "<1" 
18 DIMBAC8, 8>,AXC8), RYC8), AXZ(68) . AYZ(6@) 
11 FORI21T060:READAXZ¢ 1), AYA¢C1> ‘NEXT 


12 DATAL,1,1,8,8.8,8,1,3,1,6,1,8,3,8,6,6,8,3,38, 1,6,1,3,3,3,6,3,6,6,3,6 
13 DATA4, 1,5.1,8.4,8,5,5,8,4,8,1.5,.1,4.4,3,5,3,6,4,6,5,3,6,4,6,3,5,3,4 
14 DATAS, 2 Ss) 2 a 4, 7» 5, 5, 7, 4, 7, 2) 5, 2, 4, 3, 2, 6, 2) 7) 3, 7 6, 6, 7) 3) 7) 2) 6, 2,3 
15 DATA7,1,8,.2,9,7,7,9,2,8.1,7.1,2.201,7,2:7:7,2,7,25:2 


17 FORI#=1T08:READAX¢C1),AYCI> ‘NEXT 

13 DATAL,»-1,.1,0,1,.1,.0,1,-1,1,-1,8.-1,-1,8,-1 

2@ FORI#1T08:FORJ21T08: B4¢1,J)=@:NEXTJ, 1 

21 BYC4,4)21 > BKCS, 5) 81° B264,5)22: BACS5, 4922: SSa8 

25 GOSUBS88Q@ : GOSUB1e00 

93 PRINT"SDO YOU WANT TO”: INPUT"GO FIRSTCY OR N)>"; AS: IFAS="N" THEN2Z6Q 
399 GOSUB9999 : GOTO119 

188 GOSUB5@a9 

11@ GOSUB29a0 

111 P=7770+xK#24+9844 : [FBZCX, ¥) CSOTHENGOSUBES@@ : GOTO110 

112 POKEP+30720,0:POKEP, 81 ‘SX=X:SvaY: [Sai :TK=1 : GOSUB3080 

130 IFV=@THENPOKEP. 32: GOSUB65@@ : GOTO119 

14@ BuCSX, SY)=2:GOSUBSS68 

280 GOSUB9999 : DDA=@ : FORJ=1 T0060 

228 SX®AXZC J) : SYSAYAC J): 1120: TK38: 1$32: BOSUB38Q0: IFV21 THEN3OO 
258 NEXT : GOSUB9@G@ : GOTO12a8 

308 P=777O4+SK#2+517444 : POKESO720+4P, 1 

385 POKES2,225:FORI1=#1T01@ 

319 POKEVY, 15: POKEP, 32:FORI2=1T05@ : NEXT 
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315 POKEVV, @:POKEP, 81‘ FORI2={T050 : NEXT 

328 NEXT ; 

340 TK=1 ‘1S=2: GOSUBS@GO: BAC SX, SY) #1 : GOSUB9SO : GOT0128 
1880 POKE38674, 1 : POKE7954, 81 

1818 POKE38676,0:POKE7956, 31 

1928 POKE38718, 8: POKE7998, 81 

1838 POKE3872@, 1 : POKESOQ. 81 

1280 RETURN 

2808 GOSUBI999 

2805 DDAs0 

2018 INPUT" SCOLUMN" > X 

2820 INPUT" ROW"SY 

2838 IFXCLORKSSORY<10RY>STHENGOSUBE5Q@ : GOTO2980 
3080 Val: IFBACSX, SY)CS@THENY20 : RETURN 

3018 T8=0 

3026 FORI21T08 

3038 Tle-1:TXsSX: TYaS¥ 

3048 TX®TX+AXC1) Tra TY+AYC I) TLaTL+£ : IFTXCLORTXBORTY<1LORTYSSTHENS 200 
3050 IFBACTX, TY) =OTHENIZ0@ 

3860 IFBACTX, TY) #ISTHENSO4@ 

30780 TQ=TQ+T1 

3088 IFTK=QORT1=@THEN3S206 

3098 TXsTX~AXCI) : TY¥sTY-AYCT) 

3100 IF TX=SXANDTY2SYTHEN3200 

3118 BAC TX, TY)=3-B4¢( TX, TY) 

3128 11877704+TX#2+TYK44 

3130 IFIS#1 THENPOKE30726+1 1,8: GOSUR70@0 

3148 IF IS#2THENPOKE3@720+11, 1: GOSUB75a0 
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3138 GOTOSA96 

3208 HEXT 

3210 IFTQ=QTHENV=8 

3226 RETURN 

S000 FORSX=1T09:FORS721T08 

5@i1@ TK=0: [S#1 : GOSUB3A00 

$020 IFVCSQ@THENRETURN 

*Q30 NEXTSY, 3X 

5040 IFDD“=1THEN1QQRQ0 

§a435 DDZe1:PRINT"S YOU CAN’T MOVE" : PRINT" I’LL GO AGAIN , 

5059 FORI21T03@Q0: NEXT : GOTO28O 

6508 POKES2, 195: FORI121T0198 

6510 PRINT"ILLEGAL MOVE" 

6820 POKEVY, 15: FORI2=1T05@: NEXT: PRINT") "Y" : POKEVY, @: FORI221T05@:NEXTI 
2.11 
63550 RETURN 

700@ POKES2.@:POKEVY, 15: FORI2=195TO24QSTEPG. 4: POKES2, [2 : NEXT: POKEVY, @: RETURN 
75@@ POKES2.@:POKEVY, 15: FORT2=240TO195STEP-@. 4: POKES2, 12: NEXT: POKEVY, @: RETURN 
8GG@ PRINT "TT 1234567 §" 

381@ PRINT" Soo" 

3028 As="| | | td ti dedt" 

8030 BS=" batt ttt 

2@40 FORI#1T07:PRINTI; A$: PRINTBS: NEXT 

3050 PRINT" 3 ";AS:PRINT" bdieennernlieentenmloren 

328@ RETURN 

9080 IFDD%=1THENLGGGO 


9018 PRINT" I CAN’T MOVE": PRINT" YOU HAVE ANOTHER GO": FORI=1T0190@: NEXT : DD“= 


1: RETURN 

9588 SS=SS+1 : IFSSC6QTHENRETURN 

9658 11=6:12=@ 

966@ FORI=1T03:FORJ=1T09 

9670 IFBAC1, J=1THENT1sI1+1 

3680 IFBACI, JOS2THENT2=12+1 

9699 NEXTJ,1 

9693 GOSUB9399 

39708 IFIi>12THENS75@ 

9710 IFI2>11THENS8O@ 

9730 PRINTS IT’S A DRAW !!":GOTO99e0 
9750 PRINT"M@ IWIN "J 11;"TO", 12:GO0TOS9G8 
9800 PRINT" YOU WIN "7 12;"TO";11:GOTOS98 
fb INPUT" 3Q0RNOTHER GAMECY/N) = FBI" | AS: TFASCCAS)=7STHENPRINT "<1" : POKE36379, 27: 
N 

9905 IFASCCAS)=89THENRESTORE : CLR: GOTOL 

9918 GONT09900 

9935 PRINT"*]" :END 

99399 FORI=7690T07745 : POKEI, 32: NEXT : RETURN 
vey PRINT"SNEITHER OF US CAN MOVE END OF GAME ": FORT=17T03080 : NEXT : GOTO 
9 


READY. 


APOLLO II 


In this highly effective graphics game, you are the com- 


-mander of the lander module VIC-20-CBM. You must guide 


your lander onto the landing pad, which moves from game 
to game. If you crash onto the surface that particular game is 
over, though it will automatically restart. If you are success- 
ful you will be given another landing to attempt, only this 
time it will be more difficult. This process will continue until 
you finally fail to land. You move left with the “Z” key, and 
right with the “X”. 


READ’. 

@ 12160: POKE6SG, 285 

1 PRINT" TReHHH FHHHHM" 

2 PRINT" Wee” | lice" 
3 B26: J]=I-18 


4 AmINTCRND(1)#19+1):PRINTTABCA) "Ti 
5 PRINT" #" 

6 1=I-10 

15 GETAS: IFAS="Z" THENB=B-1 

16 IFA$="X" THENB=B+1 

17 IFAS="M" THENI=10 

18 IFA$="—I" THENI=52 

20 PRINTTAB(B)” te4" 

3@ FORF=1 TO 1+2@:NEXT 

32 POKE36878, 15 

33 POKE36876, INTCRND¢1)#19+230) 

35 PRINT"71 | " 

36 KeK+1:IFK=19 THEN4@ 

37 GOTOLS 

40 IFB=R THEN42 

41 GOTOLeea 

42 PRINTTABCB)"7) 4" 

43 PRINT" MM@BBIGOOD LANDING" : J=J+1:A=0:B=0:K=@ 
44 POKE36876, @:FORT=1T01000 : NEXT : GOTOL 

1@@2 POKE36876,2 

1018 POKE36877, 220 :FORL=©15T0@ STEP-1:POKE36878,L 
102 FORM=: T0100: NEXTM 

1@3@ NEXTL 

184@ POKE36877. @: POKE36878, @ 

1@5@ PRINT" WMGOODBYE ASTRONAUT! !" 

1060 FORM=1T0200@ : NEXT :RUN 


READY. 
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SOUND EFFECTS 


Turn up the volume on your TV and brace yourself. Ken 
Staples’ program is about to launch an assault on your ears. 
This program bears a number of similarities to one of the 
programs in your user manual. Compare them and see how 
the program writer has improved and changed the program. 


2 REM@SSOUND EFFECTS 
2 REMB®KEN STAPLES 
10 $1=36874 :S2=36875: $3936876: $4936877 va36878: MC$=" BOGGGRRItS" 
15 ER$=" 
20 PRINT" <ea@Reee SOUND EFFECTS sam" 
30 PRINT" WOM" SPC(6> "EXPLOSION" : FORW#1T0 1008 : NEXT 
48 POKEV, 15: POKES4, 255: FORI=15TO@STEP-. @1 : POKEY, I : NEXT ‘ POKES4,@ 
10@ PRINTMCSERS: PRINTMCS$SPC(4) "WHISTLING BOMB” : FORW#17T0106 : NEXT 
118 POKEY,5:FORI=23@T0126STEP-1 : FORJ=#1T020: NEXT : POKESS3, I : NEXT : POKES3, 0 : POKES4, 25 
3 
128 FORI=15TOOSTEP~. 5: POKEY, I : NEXT : POKES4, @ 
178 POKEYV, 15:FORT#=1TO1S : FORJ=200T0220+1 #2 : POKES3, J: NEXTJ, I :POKES3, 8: POKEV,@ 
202 PRINTMCSERS : PRINTMCSSPC(4>"MUSICAL NOTES" : FORW#1T0100@ : NEXT 
218 POKEV, 15: FORI=250TOZQ@STEP~2 : POKES3, I :FORJ=1T0100:NEXTJ, I: FORI#265TO2SOSTEP2 
220 POKESS, I: FORJ#1T0108:NEXTJ, I ‘POKESS, 8: POKEV,@ 
408 PRINTMCSERS : PRINTMCSSPC(8) " BEDLAM" : FORW=1T0100 : NEXT 
Seen 15: FORT#1T0180:POKES3, INTCRNDC12#128)+126 : FORJ#1T010:NEXTJ, 1 :POKES3,@: 
¥, 
300 PRINTMCSERS : PRINTMC$SPC(6)"RED ALERT" : FORW#1T01@@@: NEXT 
POKEV, 15: FORT#=1T010: FORJ#18@TO23SSTEP2 : POKESS. J‘ FORJ1=1T018:NEXTJ1,J:POKES3, 
S2@ FORJ1#17T0108:NEXTJ1,1:POKEV.O | 
708 PRINTMCSERS : PRINTMCSSPC(6)"LASER BEAM" : FORW=#1T01000:NEXT 
on POKEV, 15: FORT#1T030: FORJ=230TO248STEP-1 : POKES3, J: NEXTJ : FORJ=24@T0250 : POKES3, 
720 NEXTJ:POKES3, @: NEXT : POKEV,@ 
588 PRINTNCSERS : PRINTMCSSPC(8) "POLICE" : FORW#1T01980 : NEXT 
918 POKEY, 15: FORI#1T010: POKES2, 235 : FORJ=1 T0300 : NEXT : POKES2, @: POKES1,235: 
928 FORJ@1T0380 : NEXT : POKES1.@:NEXTI : POKEV,@ 
1882 PRINTMCSERS : PRINTMCSSPC(6) "TELEPHONE" : FORW=1T01060 : NEXT 
1018 POKEV, 15: :FORI#1 703: FORJ=1 T1050: POKES, 228 : FORJ1#1T08: NEXT : POKES3. 9: NEXT 
1028 FORJ#1T0150@:NEXTJ, I: POKEV,@ 
1188 PRINTMCSER$: PRINTMCSSPC(S) "ENGAGED TONE” : FORW=#17T019@0 : NEXT 
aver. 3: FORI#1T015 : POKES, 200 : FORJ#1 T0500 : NEXT : POKES3, @: FORJ=1 T0508: NEXTJ, I 
‘ 4 
1208 PRINTMCSERS : PRINTMCSSPC (9) "BIRDS" : FORW=1T0100@ : NEXT 
i POKEV, 15: FORT=17040 : FORJ2254T0240+ INT CRND< 1)#1@)STEP=1 : POKES3, J: NEXT : POKES3 
1218 FORJ@QTOINTCRNDC 1)#100)+120:NEXTJ, I: POKEV,@ 
1388 PRINTMCSERS : PRINTMCSSPC(S) "QUARTERMASS” : FORW=1T01000 : NEXT 
1318 FORI#OTO15:POKEYV, I :FORJ#220T0240: POKES1, J: FORJi=1T010:NEXTJ1,J,1:POKES4, 240 
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1320 FORT#1 T0200 : NEXT : FORI*254TO2Q@STEP-2 : POKES. I ‘NEXT :FORI=15TOQ@STEP-. @5 : POKEY 
oT: NEXT 

1338 POKES4,@:POKES1,@ 

1408 PRINTMCSERS : PRINTMCS$SPC(5)"OCEAN WAVES” : FORW=1T01000-NEXT 

1418 POKES4, 135: FORI#1T010: DeINTCRND¢ 1)#90)+30 : FORJ=OT010: POKEY, J: FORJ1=1 TOD: NEX 
TJi.J 

1415 FORJ#15TO@STEP-1 : POKEY, J:FORJ1=1TOD:NEXTJ1,J,1:POKES4,@:POKEV,@ 

1500 PRINTMCSERS : PRINTMCS$" VANISHING UFO" : FORW=1T010@0 : NEXT 

1518 POKEY, 15:FORI#138T0254 : POKES3, I : FORJ=1T048:NEXTJ, I : POKEY,@:POKES3.@ 

160@ PRINTMCSERS : PRINTMCSSPC(S) "UFO LANDING" : FORW=1T01000 : NEXT 

1685 POKEY, 15:FORI#1 7020 : FORJ=220-1T0160-ISTEP—4 : POKES3, J: NEXTJ 

1610 FORJ=160-1T0220-ISTEP4 : POKES3. J: NEXTJ, I :POKEV, @:POKES3,@ 

178@ PRINTMCSERS : PRINTMC$SPC(5)"UFO SHOOTING" : FORW=1T01000 : NEXT 

1710 POKEY, 15:FORI®1TO15 : FORJ=200T0220+I m2 : POKES3. J: NEXTJ, I: POKES3. 0: POKEV,@ 
1800 PRINTMCSERS :PRINTMC$SPC(S) "WOLF WHISTLE” : FORWe1T01000: NEXT 

1810 POKEV, 13: FORI#15@T024@ : POKESS, I : NEXT : POKES3, 0: FORJ1=1 TO2G@ : NEXT 

1820 FORI#2@STO128STEP-. 3: POKES, I : NEXT : POKES3.@:POKEV,@ 

198@ PRINTMCSERS : PRINTNCSSPC (6) "DANGER! ! !" : FORW=1T01000 : NEXT 

1918 POKEV, 15:FORI=1TO3@:POKES1, 220: FORJ=1T0100 : NEXT : POKES1. 0: FORJ#1T010@:NEXTJ, 
I 

1928 POKEV,@ 

2008 PRINTMCSERS : PRINTNC#SPC(8)"BLIPS" : FORW#1T01008 : NEXT 

a aN a a eae 
ES3, 

2018 FORI=1T05 ‘NEXT : POKES3, 0: FORI#=1 TOS@@ : NEXTI. J: POKEV,@ 

3008 PRINTMCSERS : PRINTMCSSPC(3) :PRINT"LERVING HARBOUR" : FORW=1T0 1800: NEXT 

3018 FORI=1T03:POKEV, 15: POKES1, 210: POKES4, 254: :FORJ=1T015@0: NEXT 

3628 POKES1.,@:POKES4, 0: POKEY, @:FORJ=1T0S@6 :NEXTJ, I 

4200 PRINTMCSERS : PRINTMCSSPC(S)" INTO ACTION" :FORW=1T01080: NEXT 

4010 FORT=1T02:POKEY, 15: FORI=148TO220STEPS : POKESS, I : : POKES4, 254: FORJ#1T05:NEXTJ, 


I 

4820 POKEV. @: POKES4. 0 : POKES3, 0: FORW=1T0108 : NEXTW, T: FORW=1 T0200 : NEXT :ReA+l : IFAS 
THENS@O@O 

4838 GOT04012 

5000 PRINTMCSERS:PRINTMCSSPC(S)"# THE END ®":PRINTSPC(S); :FORI@1T011:PRINT"~"; :N 


EXT : PRINT 
3@1@ FORI=1 7104006 : NEXT : RUN 
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HANGMAN 


This is a graphic and musical version of the popular word 
game. The letters of the alphabet are displayed on the left of 
the screen, and once you've selected a letter, it is shown in 
reverse mode, to avoid choosing it again. You position an 
arrow under the letters, moving it to the one you want, using 
the “K” (left) and “L” (right) keys. You hit the space bar when 
the arrow is under the required letter. The hanged man is 
drawn on the right of the screen. 
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If you fail to guess the word, a box is removed from 
underneath the man and he drops to the ground, stretching 
his neck considerably. A mournful excerpt from The Death 
March is played and the hidden word is revealed. An excerpt 
from the Hallelujah Chorus will play if you manage to guess 
the word before your time is up. Hangman was written by 
Mike O'Neill. 


1 GOSUBSO@@ : POKE36879, 27 

18 DIMZ$(§3> :ReRND(-TI> :$1=36674 : S2-:36875 : ¥e36876 

11 FORT#1T033:RERDZ$¢1 > : NEXT 

12 DATATWO, SIX, BASIC. VIC, DOG. BOX. TOP, APPLE. RHYTHM. HYMN, SKY. SYRINGE. KEY. WRIST. TYR 


ANT 

13 DATALIGHT. HYENA, CYANIDE. ADD. DYE. FLY. BUY. GIN, MING. ARM. VASE, YET, BISCUIT, LIMP, BL 
IGHT 

14 DATAFRAME. FRIGHT, RING. BLOOD, SHOW, HANG. HAWK, KING, CLOCK, COMB, SLY, STICK, BLOCK.CR 
AG. FLACK 

15 DATAMOOSE. VELCRO. HELL. WHISKER, SHIRT, HOSE, SADDLE. GLASS 

100 PRINT"*3" : Il@INTCRND¢1#53)+1 : G20 

110 A$=Z$(1) 

12@ LsLENCA$) : INe@ 

138 FORI#=1 TOL: POKEI+7770, ASCCMIDSCAS, I, 1) >-64 : POKE38512+1 8: POKE7792+1. 46 ‘NEXT 
200 FORT #1709: POKE38686+1. 6: POKE7S66+1. 1: NEXT 

218 FORI#197T018: POKE36743+1 0: POKE8O23+1, 1: NEXT 

228 FORI#19T026 ‘ POKESB8GG+1 . 8: POKES@8O+1. I: NEXT 

388 P=7989 : POKE30720+P,, 8: POKEP,, 30 

318 GETAS: IFAS#"K" THENGOTO350 

320 IFA$="L"THENGOTO408 

338 IFRS=" "THENGOTO4SO 

348 G0T031@ 

358 POKEP, 32:P=#P~1: IFP=8Q54THENP= 7907 

368 IFP=812@THEN?=8063 

370 IFP=7S88THENP#8126 

388 POKEP+36720. @:POKEP.. 30 :G0T0319 

408 POKEP, 32:P=P+1 : IFP=7998THENP=8855 

419 IFP=6@64THENP#8121 

420 IFP#8129THENP#7989 

430 POKEP+30728,,8:POKEP,. 36:G0T031@ 

4568 IFPEEK(P-22)>128THEN310 

468 POKEP-22,PEEK(P-22)+128 

470 Ya0:FORI=1TOL 

460 IFPEEK(7770+1 )=PEEK(P-22)-126THENY=1 : IN=IN+1 :POKE38490+1 .@ 

499 NEXT 

300 IFY=QTHENGAG 

418 IFIN®*LTHEN?@@Q 

329 G0T0318 

620 G=G+1 : IFG=9THENSOQ 

618 ONGGOT0620. 640, 660, 680, 780, 720, 748, 760 

pa PRINT" SSQ@BPRRRORSPDD ened SE SRESE SS VOR YER YER KOR PSR VOR NOR HOS SER YON NOR 
iMag": 

630 PRINT" X00 X00 300 Klee SERS) ieeeer) eanen) TYYYYYTYITTY)" ‘GO 
T0318 

631 REMPRINT" XO@ YO G0 Wile TYTYYYYYIIIII1)": ‘GOTI318 

640 PRINT" MGSSGUEW y ViEEMw YY"; :GOTO310 

662 PRINT" IDPH |KO” WERE |exeRERYS-w" ; -G0T0310 

680 PRINT" SOM | Maid ME NE ME! ME"; :GOTOS1A 

700 PRINT" SRELTTY POG NOG WOE” | :GOTOS1A 

720 PRINT" SEY T SOUS MOG MES"; -GOTO310 

740 PRINT" QQ Sead ee EE"; COTO312 

760 PRINT "GUY 1h | 00 1 MG 1 MM"; :GOTO316 

908 FORI#1T03: PRINT" SeameaOt "3 {NEXT 

918 FORK#@TO44STEP22 : FORJ=9TOOSTEP-1 :FORT=1T03 
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920 Me7672+1+Je22+K : POKEM, PEEK(M-22) : POKEM+30728, PEEK(M+30698) 
938 NEXTI, J. K: GOTOS@@8 


3088 
3818 
3020 


8805 


GETAS : IFAS<>" "THENSOGB 

INPUT" 3@8HRNOTHER GAME CY/N)"; AS 

IFA$=""THENGO1@ 

IFAS@*Y" THEN! QQ 

IFAS="N*THENPRINT "<}* : END 

GOT03018 

PRINT" 2 WOHANGMAN" :PRINT" MOF 8=BY MIKE O’NEILL” 

PRINT" M@ HIT ANY KEY TO START" 

GETAS : IFAS=""THENS@20 

RETURN 

POKES 1 . 0: GOSUBBAAE : GOSUBSARA 

POKES1 , 225 : POKES2, 225: FORJ=1T02. 

POKEY, 15: FORI=1 T0868: NEXT : POKEV, @:FORI=1T030:NEXTI 

POKEY. 13: FORI#1T05@: NEXT : POKEY. @:FORI=1T030:NEXTI 

POKEV, 15: PO“ES1, 228: POKES2, 228 : FORI=1T0200 : NEXT : POKEV. 8: FORI=1T018@: NEXTI 
POKEV, 15:POKES1. 225 : POKES2, 223 : FORI= 110180 : NEXT : POKEV, 8: FORI #1 T0350: NEXTI 
FORI=1T0280:NEXTI, J 

POKEYV, 15: FORI=1T020@: NEXT : POKEYV. 6: FORI=1T0180 : NEXT 

POKES! , 228: POKES2, 228: POKEY, 15: FORI=1 T0200 : NEXT : POKEV, @: FORI=1T010@: NEXT 
POKEY. 15:POKES1. 232: POKES2. 232 : FORI=1 T0200 : NEXT : POKEYV, 0: FORI=1T01@@ : NEXT 
POKEV, 15: POKES1, 231 : POKES2. 231 : FORI=1T04Q0 : NEXT : POKEV, 8: FORI=11T0180: NEXT 
POKEYV, 13: POKES! , 232 :POKES2. 232 : FORI=1T050@ : NEX™ : POKEYV, @: FORI=1T019@ : NEXT 
GNTO38e9 

POKEY, @:POKES1 , 232 :POKES2, 232: POKEY, 15: FORI=1T05@0 : NEXT : POKEV, 0: FORI=1T0208 


POKES1, 225: POKES2. 225 


80108 POKEV. 15: FORI=1T0200: NEXT : POKEY, 8: FORI=1 T0350: NEXT : POKES! , 228 : POKES2. 228 : POK 
EV,15 


8820 


9118 
9280 


& 
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FORT=1 T0200 : NEXT : POKEYV. @: FORI=1 T0536: NEXT : POKES1 , 225: POKES2, 225 

Oe ne nee See ete ponasa sense 

RETU 

POKEY,@:POKES1. 195: POKES2, 225: POKEYV, 15: FORI=1T0190@ : NEXT 

POKEV, 0: FORI=1T05@: NEXT : POKES! , 163: POKEV. 15: FORI=1T01000: NEXT 
POKEV,@:FORI=©1T05@: NEXT : POKES! . @:POKE'. 15: FORI=1T010@: NEXT : POKEYV, 8: FORI#1T0 


NEXT : POKES, 195: POKEYV, 15: FORI=17T010@Q : NEXT : POKEYV. @: FORI=1T010@: NEXT 
POKES1, 163: POKES2.229:POKEV. 15: FORI=<1T01000 : NEXT: POKEV.@ 
POKES1,0:POKES2, 228: POKEY, 15: FORI=1T010@: NEXT : POKEV. @:FORT=1T0160: NEXT 
POKES1. 195: POKES2. 228: POKIV. 15: FORI=1T06Q@@ : NEXT : POKEV, 8: FORI=1T056 : NEXT 
POKES 1,@:POQKES2: 225 : POKEY, 13: FORI=1T050@ : NEXT : POKEV, @: FORI=1T0180: NEXT 
POKES1 . 163: POKEV: 15: FORI=1T0700 : NEXT : POKEY, @: FORI=1T05@: NEXT 
POKES1.@:POKEV, 15: FORI=17TQ200: NEXT : POKEV, @:FORI=1T050: NEXT 

POKES1, 195: POKEV, 15:FORI=1T01000 : NEXT : POKEY,@ 
FORT=1TOL : POKE38490+1.0: NEXT 

GOTO3808 
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SIMON 


This is a game like the toy of the same name. The computer 
selects a.sequence of colors, with accompanying sounds, 
and you must repeat the sequence exactly. There are four 
different colors, shown at the top, bottom, left and right of 
the screen. The sequence starts with one randomly selected 
color and each time the sequence is repeated another color 
is added. The maximum length of the sequence is from five 
to 20. To make the game easier to use, more than one key is 
used for each color. 
Keys used: Top color—any number 

Bottom color—space bar 

Left color—any character 

Right color—any function key 


1@ PRINT" SIMON" :PRINT"M BY MIKE Q’NEILL" 
20 PRINT” KEYSm 

21 PRINT" —_" 

22 PRINT" | ANY '" 

23 PRINT" | NUMBER {" 

24 PRINT" ———— —_—_*——_" 
25 PRINT"J1 ANY | ANY '" 
26 PRINT"ICHARACTER IFUNCTION I" 
27 PRINT") —-——————_--———"" 
28 PRINT") 1 SPACE I" 

29 PRINT" | BAR \" 

38 PRINT" eer 


35 PRINT"WENTER MAXIMUM SEQUENCE” 

36 INPUT" LENGTH (5-20)" M2: IFMACSORMZ>2QTHENSE 

48 PRINT" HIT ANY KEY TO START" 

5Q GETAS: IFAS=""THENS@ 

68 POKE36879, 25 

7@ $=36376 : ¥=36879 : POKEY, @: POKES. @: DIMAC 2) 

8@ R=RND(-TID 

10@ PRINT"? a " 

118 FORI=1T06 :PRINT"® a8 a @" NEXT 

120 PRINT" 2 . 

13@ FORT=1TC6 PRINT" © a 8 a": NEXT 
149 PRINT" "Ts . 

15@ PRINT"?"; ‘FORT=1T06:PRINT"S a8 a @" NEXT 
168 PRINT" a 7” 

170 FORI=1T01000: NEXT 

208 N=®: 22500 
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210 N=N+1 

220 ACND=INTCRNDS 1 844+1) 

238 FORL=1TON 

248 ONACLGOSUB1AG9, 2900, 3000. 4008 

258 NEXT 

300 FORL=1TON 

318 C=@ 

328 GETAS: IFAS=""THENS2Q 

338 B=ASCCAS) 

340 IFBD47ANDBCSS8THENC=1 > REM NUMBER 

350 IFB>G64ANDE<91 THENC=2:REM CHARACTER 

3269 IFB>132ANDB¢141THENC=3:REM FUNCTION 

378 IFB=32THENC=4:REM SPACE 

380 IFC©@THEN3S28 

408 IFACLOSOCTHINGOTOEAGA 

418 ONCGOSUIB1 O68. 2668, 3008. 4000 

426 NEXT 

430 IFN=M“THENS@@a 

449 FORT=1T02000 : NEXT 

548 GOTN218 

ee LSS POKEY. 15: PRINT" SOORORRI" | -FORT=1 TOG : PRINT" eae 
1010 FORI=:T02:NEXT : POKEY, 8 

1020 PRINT" SRRRRORM ; *FORT=1T06: PRINT" YAURRSHRGERM" | NEVT 
1939 RETURN 

2000 POKES: 215:POKEY, 15 

2010 PRINT" SORE | FORTH1TOG: PRINT" esheets" | NEXT 
2620 FORI=1T02:NEXT :POKEV. @ 

2830 PRINT "SSN |“ FORT=#1T06: PRINT" MOUCURRRER" | “NEXT 
2048 RETURN 

3008 POKES. 225: POKEV, 15 

3010 PRINT" SDPNPRRRORRRRDSRI" | FORTA=1 TOE: PRINT Saree Ee | NEXT 
3428 FORI=1TO2:NEXT :POKEYV. @ 

3030 PRINT" SOOM SRRRSRRRRRORI" © -FORT=1T06: PRINT" YOUUTSERREI" | NEXT 
3640 RETURN 

4000 POKES. 235 :PQKEY, 15 


4016 PRINT" Spee R RR RR"; -FORT=1TO6 > PRINT" A Oat" |: NEX 
T 

4026 FORI=1T02:NEXT : POKEYV.@ 

4638 PRINT" SDR ROBB" | -FORT=1T06 -PRINT" EGUSCSRRERT | NEXT 


4046 RETURN 

SQ@@ 2=5:FORL=1T018: GOSUB1 AGG : GOSUB2000 : GOSUR4AA@ : GOSLIB3AGA : NEXT :GOTO7A10 

6088 POKES. 135:POKEY. 15: ONCGNTN6100. 6200, 6280.6400 

6168 PRINT" SeRRRRR" | -FORT=1T06 ‘PRINT " Qe REE NEXT: GOTO7AAR 
6208 PRINT" SMR" |S FORI=1TOE: PRINT" Awe w RRM" | NEXT: GOTO7ARG 
6309 PRINT" SOMME NORRRRRRRRRRRI" | -FORT=1TO6 > PRINT "Mtwarse OR RSREERI" | “NEXT G 
CTN78Be 

6408 PRINT" EMDR RRB" | FORTH=1 TOG: PRINT" yeetnemmnnnn 
r 

7OG8 FORI=1T02800 : NEXT 

7Q18 GETAS: IFAS<>""THEN7O10 

7020 POKEY.@: INPUT"TMIANOTHER GAME ¢'?/N)": AS 

7638 IFAS="9" THEN1 AA 

7E4Q TFAS="N" THENPOKESES 79. 27: END 

7856 GOTO7H2A 
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BLACKJACK 


Prepare to lose your shirt in this ruthless Blackjack game by 
Ken Staples. The computer plays the bank and you always 
play first. This means the wily VIC only has to equal your 


70 * GAMES FOR YOUR VIC20 


hand and it wins your stake. The winner of each round is the 
player with the highest total, with the following exceptions: 

BLACKJACK—this hand consists of a ten-card and an ace. 
It beats all other hands 

FIVE CARD TRICK—Five cards with a total of 21 or less 
beats all other hands except for blackjack 

If the player scores over 21 (goes bust), then the bank 
automatically wins. 


1 REM*#PONTOON 

2 REM#KEN STAPLES 

5 Q=25:P=25 

6 DIMDCS),$¢5>,HC5),0¢65) 

18 PRINT"<}" : POKE36879, 29: M$=" OOOOMS" : O$=" r 
L=7681 'C=38481 : GOSUBS@0@ : AlsE 

110 INPUT" MOQOOMMBID £";A: BeFRECQ) : BaA 

120 IFR>STHENPRINTM$" SMAX. BID £5" : FORW=110488@ : NEXT : PRINTM$0$ : GOTO110 
200 L#7685 ‘0 #38405 : Xe1 : GOSUBSOG@ : X=0 : A2aE : GOSUB2ZE8@ : IFFGOTOEG2 

302 L=*7689 :C=3849 : GOSUBSO0@ : ASE : GOSUB2000 : IFFGOTO600 

480 L=7693 :C#=36413 : GOSUBIG00 : A4=€ : GCOSUB2ZOCO : IFFGOTOES2 

5308 L=7697 :C=38417 : GOSUBS0@ : AS=E : GOSUB2008 

602 Ai#0:A2=0:AS=0:A4=@ : A3=0 : MS" MN” 

618 _=7857 :C#38577 : GOSUBSO@0 : Al=E : GOSUB3@08 

700 L=7861 :C=38561 : X=#1 : GOSUBSO8O : X=#0 : A2eE : GOSUBIOOO : IFFGOTO1588 

808 L=7665 :C=38585 : GOSUBSO8@ : AS=E : GOSUB3800 : IFFGOTO1S@0 

908 L=7869 :C=38589 : GOSUBS8G9 : A4=E : GOSUB3208 : IFFGOTO1580 

1088 L=7873:C#38593 : GOSUBS08 : AS=E : GOSUB3800 

1500 IFN#=1 THENN=@ : P=P+A :Q=0-A 

1510 IFO#1THENO#=0 : PeP-A: Q=Q+A 

cher Ee ee te een ee nee » YOU HAVE BROKEN THE 
1515 IFP<=@THENFORW#1T01008:NEXT:PRINT"SOBESORRY! YOU ARE BROKE!" : END 
1520 PRINT" MBANK £"Q:PRINT" MPLAYER £"P 

1538 A=@: A120: A2=8:A3=0:A4=Q : AS@: 190: JaQ : Ke : MQ: PT=@: FC=@ : FORW=1 TOS@OO : NEXT : GO 
T0190 

2080 FaQ:PRINTMSOS : IFRSDQTHENZO2O 

2010 IFA1*1ANDA2*1B0RA2*1ANDAL=1OTHENPRINTMS"PONTOON" ‘Fai :PT]#1 > RETURN 
2020 T=AL+A2+AS+A4+AS : PRINTMS"POINTS"T; 

20235 IF (A1=10RAZ=1ORAS=10RA491 DANDT+1@C21 THENPRINT"OR"T+18 

2032 FORW=1T0400@ : NEXT : PRINT: IFT>21 THENPRINTM$O$ : PRINTMS$"SORRY! BUST! ":F#1:RETUR 
N 


~~ 
Q 
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2036 IFASDCANDT<#21THENPRINTM$O$ :PRINTM$"S CARD TRICK” : FC#1 ‘RETURN 
2040 PRINTM$"1 TWIST.2 BUY.3 STICK": INPUT"WHICH" > R: IFR>STHENPRINTMS" Xl" 0S : GOTO204 


] 

2068 PRINTM$O$S : PRINT "SQN" OS : ONRGOTO2Z118, 2120 

2080 IFAL=10RA2=10RAS=10RA4=10RAS*1 THENT#=1+10 : IFT>21THENT#T-10 

2098 IFTCISTHENPRINTMS" CANNOT STICK UNDER 15" : FORW=17T04@00: NEXT : GOT02040 
2120 PRINTMS"STUCK ON" T"STAKE £°A:F=1 > RETURN 

2118 IFTCLITHENPRINTMS" SCANNOT TWIST UNDER 11": FORW#=1T040@Q : NEXT : GOTO2042 
2115 RETURN 

2128 PRINTM$O$:PRINTMS"STAKE £"A; :INPUT"BID £",G: IFGC#BTHENASA+G : RETURN 
2140 PRINTM$O$:PRINTM$" SONL'Y UP TO FIRST BID" :FORW#110400: NEXT :GOTO2Z120 
3880 U=A1+A2+A3+A4+AS : PRINTMSOS 

3818 IFA1#1Q@ANDAZ=10RA1=1ANDAZ#1@THENPRINTMS"PONTOON. BANK WINS” :F21:O=1 > RETURN 
3812 PRINTMS"POINTS"U, 

3015 IF CAL=10RAZ=10RA3=10RA4=1 DANDU+10<221 THENPRINT”OR"U+10: IFU+10>“TTHEN3@9@ 
3820 FORW=1T04000 : NEXT : IFPT*1ORU>21ANDT<C#21THENPRINTMS"MYOU WIN!" :F=1 Nel: RETURN 
3825 IFT>ZLANDAZ>CORASDGANDU<#21 THENPRINTMS$" MOMBANK WINS!" :F#1:O21 > RETURN 
3870 TEE ES Geni S=2 ROS HEN RET er WINS!" Fei :O91 :- RETURN 

3068 RETURN 

3098 PRINT“ MMBANK WINS!" :F=i:O=1: RETURN 

5@00 POKEL, 79: POKEC, 8: POKEL +1, 99: POKEC+1,@:POKEL+2, 60: POKEC+2,8 

3618 POKEL+22, 181 ‘:POKEC+22. @: POKEL +24, 163: POKEC+24.,8 

3@20 POKEL+44, 101 : POKEC+44, 0: POKEL+46, 163: POKEC+46,0 

3@30 POKEL+66, 101 : POKEC+66. 8 : POKEL +66, 103 : POKEC+68,@ 

3040 POKEL+88, 76 : POKEC+88, 8: POKEL +89, 108 : POKEC+89. @ : POKEL+9@. 122 : POKEC+98,8 
6808 S*INTCRND(1)#4)+1 : IFS#1 THENS@65 :H=@: I=] +1 : GOSUB7000 : GOSUBSO8 : S¢1>=D : RETURN 
6020 IFS@e2THENS#63 : H=2 : JeJ+1 : GOSUB7O00 : GOSUB9IORO : HJ) =D : RETURN 

6030 IFS=3THENS=66 : H=@ : K=K+1 : GOSUB7O80 : GOSUB10000 :C(K> =D: RETURN 

6048 IFS=4THENS=90 : Hed : Mef+1 : GOSUB7000 : GOSUB1 1000: D<(M>=D : RETURN 

70@@ D#INTCRND(1813)+1 : IFD=1 THENE=1 

7028 IFD@2THENE=2 : D=58 

7038 IF D=3THENE=3: D=51 

7048 IFD@4THENE@4 : DeS2 

7058 IFD@STHENE=5 : D=S3 

7068 IFD@6THENESS : D=S4 

7070 IFD@7THENE#7 : DeSS 

7068 IFD=OTHENE=6 : D#56 

7098 IFD=9THENE#=9 : DeS7 

7108 IFD=1@THENE=10: D=@ 

7110 IFD=11THENE=10:D=10 

7120 IFD@i2THENE=16:D=17 

7190 IFD@13THENE=10: Dei! 

7140 IFA1=1ANDX=1ANDE=1 THEN7O08 

7178 RETURN 

8008 FORW=1TOI : IFD<>SCW) THENGO38 

6820 Fal 

8038 NEXT : IFFTHENF=@ : GOSUB7@80 : GOTOSeee 

8642 GOSUB1 2000 : RETURN 

9000 FORW#1TOJ: IFDOHCW) THENS@38 

9028 Fel 

9830 NEXT : IFF THENF #0 : GOSUB700@ : GOTO9@80 

9048 GOSUB12000 : RETURN 

10080 FORW!1 TOK: IFDC>C (iW) THEN1 0808 

10820 F#i 

1003 NEXT : IFFTHENF=0 : GOSUB7@@ : GOTO1 0800 

10848 GOSUB12000: RETURN 

11088 FORW=1 TOM: IFDODCW) THEN! 1838 

11020 Fei 

11838 NEXT: IFFTHENF@@ : GOSUB7@00 : GOTO 11808 

11042 GOSUB1200@ : RETURN 

12088 POKEL+23,S:POKEC+23,H 

12018 IFD@@THENPOKEL +45, 49: POKEC+45. 6: POKEL +46, 48 : POKEC +46, 0: RETURN 

12820 POKEL+45,D:POKEC+45,6 

12838 RETURN 


READY. 


SKI RUN 


In this fast action game from Kevin Smith, you control a skier 
who you must guide through 20 gates, at any one of 20 skill 
levels, ranging from one (beginner) to four (professional). 

“Z” will move the skier left, “M” will move her right. The 
game restarts automatically after a crash. 


J PRINT" SQ" : POKE659, 255 

1Q PRINT" SKI RUN" 

15 B=7691 

28 PRINT" M2=LEFT,M=RiGHT" 

25 PRINT" SKI THROUGH THE GATES" 
30 PRINT" MSPEED : @1=PRO" 

40 PRINT"4=BEGINNER" 

45 POKE198,2 

3@ INPUTR:A=Am1S 

68 PRINT"Z" 

108 REM ROUTINE 

118 PRINT" { i" 
128 POKEB. 25 

138 C=#C+1:IFC=24 THEN2@0 

135 POKEB, 96 

140 GETAS 

150 IFA$="2Z" THENB=B-1 

16@ IFAS="M" THENB=B+1 

165 POKEB, 25 

170 FORT=1 TOA : NEXT 

16@ GOTO180 

200 C=O: D=INTCRNDC1 #17) 

285 E=E+1:IFE=21 THENPRINT"@ GAME OVER": FORC#1T0280@: NEXT > RUN 
21@ PRINTTABCD)"I I" 

228 GOTO180 


READY. 


YA 
Nees 


DIAMOND GLORY 


This maze game is a type of “solitaire” which can take 
anything from seconds to hours to play. You control be- 
tween one and five circular pieces; there are an equal 
number of diamond pieces which do not move during the 
game. The object is to move your pieces so that each covers 
a different diamond. This may seem easy, but wait till you’ve 
played it with four or five pieces. 


“A’—up 
“S”—down 
“K"’—left 
“L’—right 


Space—to stop 
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18 ReRND(-TI) :$#36876 : ¥#36878 : DIMPCS),0¢3) 

20 PRINT"SRMM DIAMOND GLORY": PRINT" MQ BY MIKE O’NEILL” :POKEY.@ 

22 PRINT"M KEYS:":PRINT"M ASUP":PRINT" S#DOWN": PRINT" K=LEFT":PRINT" L#RIGHT" 
24 PRINT" SPACE=STOP a" 

38 INPUT" ENTER LEVEL (1-5)";5R: TFROSORR<1 THENSS 

48 IR=9800-R#109 : PRINT 

5@ INPUT" HOW MANY ¢1-3)">NN:NN@INTCNND > IFNN>SORNNC1 THENS@ 

68 POKE36879,57: PRINT" 4” 


100. PRINT 


181 PRINT" | 
192 PRINT’ ec ro —"~=O*XS*éC‘W'W'"’ 
183 PRINT" | | i Vi Eas 
104 PRINT’) | -e—— | |! ~«OI" 
183 PRINT"? | Pru 
197 PRINT’ | | es 1; dou 
188 PRINT"71 1 | | i a ee 
189 PRINT" | | r— | 1 i" 
118 PRINT" | 1 | 1 | \" 
411 PRINT’) | | | ———I11 I" 
112 PRINT"I 4 | | — |" 
113 PRINT"{II + -— \" 
114 PRINT"TII | 1 | es |" 
115 PRINT’ | | | —<————- 1 Is" 
116 PRINT"T1E 4 | | bekok 
117 PRINT"l “4 r—— 11 i" 
118 PRINT" , to 1 b 4" 
119 PRINT"! F 2 e— ero \* 
120 PRINT"‘3I | | 1; i" 
LDL PRINT 809 tebe 
19@ FORN=*1TONN 


200 PCND=INTCRNDC 1841647724) : IFPEEK(P(N) )<232THENZO@ 

21@ POKEP(N)+38720, 1 :POKES, 200: FORJ=1T018 

211 POKEV,@:POKEPCN), 32:FORI=105@: NEXT “POKEP(N) 81 ‘POKEV, 18:FORT#1T0S@: NEXTI, J: 
OKEY, 

212 CN)#32 

220 NEXT 

222 FORN®1 TONN 

224 CCmINTCRND( 184147724) : IFPEEK(CC)©32THENZ24 

226 POKECC+30722, 2: POKES, 200: FORJ=1T010 

228 POKEV, : POKECC, 32: FORT=1T05@: NEXT : POKECC, 9: POKEV, 15:FORI#1 1050: NEXTI, J: POKE 
Vie 

238 NEXT 

3e8 Age" 

318 GETBS: IFB$="" THENS38 

328 AS=B$:GOT0310 

338 IFA$=" "ANDD@OTHEN4ES 

335 IFAS=" "THEN42S 

242 IFRS="A" THEND=-22 

352 IFAS="S" THEND=22 

368 IFAS="K" THEND==1 

378 IFRS="L"THEND®! 

300 IFR$=" “THEND=@:G0TO485 

40@ POKEV, 15:FORI=1T01@@:NEXT : POKEV,@ 

405 FORNe1 TORN 

410 CH=PEEK(P(N)+D) : IFCH=S2THEN42@ 

412 IFCHOSSTHEN4S® 

414 GoTozeee 

428 POKEP<N) »C(ND : PCN? @P(N)+D: CCN) @PEEK(PCND > : CL (ND @PEEK (P(N? 438728) 
438 POKEP(N)+3872@. CL(N) :POKEPCN) 61 

45@ NEXT 

468 FORI=1TOIR:NEXT 

580 GOTO 

2002 J=Q:FORI=1TONN 

2012 IFC(1>CO9@ANDI ONTHENT=1 

2020 NEXT 

2098 IF J=1THEN42@ 

2048 POKEP(N), 32: P(N)=PCND4D 

2100 POKES, @:FORI=1T01@@STEPS: POKES, 158+ : POKEV, 15:FORK#1T0S : NEXT 
211@ FORJ=1TONN: POKEP (J), 32: NEXT POKEY, @: FORK=1 10S: NEXT 

2128 FORJ=1TONN : POKEP(J), 81 :NEXTJ, I 

300 INPUT"CMNMIN ANOTHER GAME CY/N)";A$: IFRS="N" THENPOKES6S79, 27 ‘END 
3018 IFAS="Y" THENS2 

3828 GOTO30e0 


ZOMBIES 


Mike O'Neill places you smack dab in the middle of an 
island, surrounded by zombies and potholes. The object of 
the game is to lure the zombies down the potholes, while 
avoiding being eaten by a zombie or falling down a pothole 
yourself. 

You can move horizontally or vertically. You keep moving 
in the same direction until a new direction is selected; or if 
you wish you can stand still. The zombies always move 
toward you, regardless of what may be in the way. 

At the start of the game you have four lives and there are 
20 zombies to destroy. You get one point for each zombie 
that falls down a pothole. Each time you clear the island of 
zombies you get ten bonus points and the island is redrawn, 
with two additional zombies. This goes on to a maximum of 
30 zombies. If you fall down a pothole, or you are eaten by a 
zombie, you lose a life and the island is redrawn with 20 new 
zombies. 

Your controls: 


“A” —up 
“S”—down 
“K’’—left 
“L’—right 
“S”—stop 
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ti hit 


@ GOTOSe8O 

1 DIMZ%¢38, 1) 

2 10*7746 :S2=36875 34836877 : ¥= 36876: 15" : POKE36879, 94: IL=20 

3 IN#4 

10 POKEV,@:POKES2. @: GOSUB1900 : GOSUB2000 : GOSUB3980 : GOSUE4800 : GOSUBS800 
20 IW=100: IC=Q 


188 


142 


398 
388 
328 
538 
348 
358 
368 
5635 
688 


FORI#iT0Z22 

IFZA(1,0)*OTHENSOO 
IC#1C+i1 : IFICOCZTHENIC=0 

IF IC#@THENGOSUBSO2 
2X=-1 : ZY¥=-22 

IFIX924¢1,0) THENZX=1 

IF IYDZ2A¢1, 12 THENZY=22 

IF IX#24(¢1, 0) THENZX#8 
IFIVs22.¢1, 1) THENZY=0 
TalQ4+2461,09422¢61.1)#224+Z2X+ZY : TIBPEEK CT) 
IFT1=32THENZ2S 

IFT1=81THEN6OOO 

IFT1226THENSOO 

IFT1=87THEN319@ 
FORTT=1 TOIW : NEXT 

POKE(C 164+24¢1,094Z2461,1)822),32 
POKES2, 258-IZ#2 :POQKEV, 15 

FORT 1=1 T7050 : NEXT 
POKEY,@:POKET. 26 : POKET+30720,0: 
2461, 0>m2201,0942%: 2401, 1982461,19 424/22 
NEXT 

GOTO0100 
THZA61,0)4Z2461, 1) #22410 
POKET, 32 

POKEV, 13 
FORG#160T0250 : POKES2, G : NEXT 
POKEY,0:2%61,0)20: [ZeIZ-1 
C2"1Z/6+1 : IFTIZC3THENCZ20 
1S#*I$+1: IW=sIW-3 

PRINT" M@@SCORE" > IS 

IF IZ2OTHENSOOO 

GOT038@ 

GOSUBS288 

IFAS=""THENGSO 

IFRS="K" THEN618 

IFA$="L." THEN628 

IFRE#"A" THEN638 

IFR$="S" THEN640 

IFRS="" "THEN64S 

GOTO6Se 


612 


744 

7358 

1860 
1828 
1832 
1849 
1850 
1868 
1870 
1890 
1091 
1108 


6800 
6085 


ZOMBIES ° 77 


PP=-1 : GOTO65@ 
PP=1 ‘ GOT06S0 
PP=-22 ‘GOTO652 
PP=22 :GOTOESO 

PPaQ : GOTO65@ 
T=IP+PP : GOTO708 
TL=PEEK(T) : IFT#32THEN73@ 

IFT 1@26THEN6S88 

IFT1"67THEN7008 
POKEIP, 32 

[PeT : POKET+30720,0:POKET, 61 
IFPP#=1THENIX=[X~1 
IFPP=1THENIX=#IX+1 

IFPP#22THENI Y=1¥+1 
IFPP=-22THENIY=1¥=1 
RETURN 

PRINT" DRSCORE"; IS: PRINT" MagooodoR0CO000COC000000" 
FORI#1T016 

PRINT"0 Qo” 
NEXT 

PRINT" "0 o" 
PRINT" OTT)" 
PRINT" M@OOCOOOOOD0000000000008" 
PRINT "3" 
POKE6185, 87 : POKE369@5, 1: PRINT" S" 
FORI#1TOIN: POKE7719+1,81 : POKE38439+1 ,@: NEXT 
RETURN 

1Z=0 ‘R=0.03 

FORI=i1T020 

FORT=1T018 

IFIZ*3QTHENZO9@ 

IF IZ#ILTHEN2090 
TFRND( 1) SRTHENZOSO 

K=1Q+1+T#22: IFPEEK(K>) =26THEN2O82 
[ZeIZ+1 :2A612,8)81 ‘24¢1Z, 1)aT 
POKEK+30720, @: POKEK, 26 

NEXTT, I 

GOT02828 

22212: C2" 1+12/6: RETURN 
FORI=1T020 

FORT=1T018 

IFRND¢ 1938. 1 THENS@60 

K=I1O+1+T#22 

IFPEEK(K)*26THEN368 

POKEK., 87 : POKEK+3072@, 1 
NEXTT, I: RETURN 

TX# INT CRNDC 1 #1543) 

IY*INTCRNDC 191443) 

FORT @1X-1TOIX+1 :FORJ*@1Y-1TOLY+1 
IPelQ@+I+Je22 

IFPEEK< IP)<>32THEN4800 

NEXTJ. 1 

IP=IO+1X+1¥H22 

POKETP. 81 : POKEIP+30720, 8: PP=0 
POKES2, 248 

FORT #17010: FORT#1 T7020: NEXT 
POKEV, I 
POKEIN+7719, 81 : POKEIP, 32: FORT=1T020: NEXT 
POKEV,@ 


@ POKEIN+7719,32:POKEIP,81 ‘NEXT 


RETURN 

A¢= we 

GETB$ : IFB$=""THENS@38 
A$=B$ :GOTOS810 


RETURN 
T81Q0+24¢(1,8)+22¢1, 1822 
POKEY, 15 
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6018 FORI=2TO3@STEP2 

6828 FORG=1T010: NEXT 

6032 POKET, 26: POKEIP. 81 :POKES2, 220+1 
6042 FORG#1T01@: NEXT 

68350 POKET, 32: POKEIP, 26 :POKES2, 208+1 
6100 NEXT 

6488 GOTO7300 

6500 T1=26:IC=0 

6682 GOTO7OS2 

7000 Ti=97: IC=1 

7050 POKEIP, 32 

710@ POKEV, 15 

7200 FORT =2TOS@STEP2 

7210 POKET, 91 : POKET+30720, 0: POKES2, 188+1 
7220 FORG#1T010: NEXT 

7238 POKET.T1 : POKET+3072@, IC : POKES2, 200+1 
7240 FORG=1T010:NEXT 

7258 NEXT 

7308 IL#20: IN=IN-1 

7480 IFIN®QTHENSSOO 

7388 GOTO18 

6800 FORT=1T010:POKEYV, 15 

8001 FORG=1T010 

8802 POKES2, 140+6+1#19 

8803 NEXT 

8604 PRINT" BONUS" 

88005 FORG=1T018 

B8@6 POKES2, 130+G+112 

8807 NEXT 

8010 PRINT" : 

6815 NEXT: IS=IS+10:POKEV,@ 

8820 IL*IL+2: IFILDSOTHENIL #39 

83500 GOTO19 

9000 PRINT" (2a ZOMBIES": PRINT" BY MIKE O’NEILL" 
9805 PRINT" Ml KEYS :":PRINT"M ReUP": PRINT" S=DOWN" PRINT” K=LEFT": PRINT" L@RIGHT 


9806 PRINT" SPACE=STOP” 

9007 PRINT" MR HIT ANY KEY TO START” 

9108 GETAS: IFAS=""THENS102 

9208 GOTO! 

9508 GETAS: IFAS<>"" THENSS29 

9561 POKEV,@: INPUT" MQNANOTHER GAME “Y/N> &B@i" AS: IFAS@"N" THENPRINT"<)" 
9502 IFAS="N" THENPRINT "<2" : POKE36979, 27 : END 

9505 IFAS<>"Y" THENSSO1 

9680 CLR: GOTO! 


READY. 


MICRO MUSIC 


This music program can be used in two ways: 
To repeat a simple set of sounds, such as drumbeats, 
to give a rhythmic backing to other music 
To produce complete tunes 

The music is entered in steps. Each step consists of the 
notes stored in the low, middle, high and noise generators. 
The volume and duration of the note is also stored. The 
notes are in the range 128 to 255, as shown in your manual. 
The volume is in the range zero to 15. The duration has a 
base value of one, so half notes are entered as .5, thirds as 
.333 and quarters as .25. When the program is run, you enter 
the six factors listed. The tune will start playing when you 
enter ‘“—1” for the “low” note at any stage. 

When “Tempo?” appears, first try it with a value of 100. 
When the music is underway, pressing F5 will allow the 
tempo to be altered to suit the tune. The value should be in 
the one to 1,000 range. Pressing F7 allows any stage number 


to be re-entered. i} 


@oeeeeeedeeées @®@ 

@oeaeeeedeede9sd 28 ®@ 

@©9eeeee8eeeeéee 
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READY. 


102 
112 
120 
130 
142 
152 
168 


PRINT" @" 

POKE36879, 136 

GOTO340 

REM 

IFAC@, C)<@THENC=@ 

PRINT" "5C 

FORX=368747036878 

POKEX, ACX-36874,C) 

NEXT 

FORK=1T0¢ 10008-S)#ACS, C73: NEXT 
IFCC=@THENPOKE36878, 2 
FORK#170(20-(S/50)#AC5, C275: NEXT 

GETAS 

IFAS="Ig" GOTOZSe 

IFAS="B"GOTOZ90 

1FAS="—" THENCC#ABS(CC~1 

CeC+1 :GETAS: IFAS="S" THENC=2 

GOT013@ | 

INPUT"SNEW TEMPO" ;$:GOT0130 

INPUT"SSTEP NO." ix 

INPUT" LOW” | AC@, X) : IFACO, X><BGOTO13@ 

INPUT" MIDDLE" sAC1,X) : INPUT" HIGH" 5 C2, X) : INPUT "NOISE" | AC3, X) 
INPUT "VOLUME" + AC4,%) : INPUT" DURATION" 5ACS, X) 
GOT013@ 

REM 

INPUT" <ITEMPO" jS 

DIMACS, 75) 

PRINT"*2" ; 

x=@ 

PRINT" STEP NO. "2%," a" 

INPUT" LOW" |AC@, X) : IFAC@, X)<BGOTO132 
INPUT"MIDDLE" ; C1, X) : INPUT" HIGH" j C2, X) : INPUT "NOISE" C3, X) 
INPUT" VOLUME" > AC4, >: INPUT" DURATION"; ACS, > 
IFXC1QQTHENK®X¢1 

GOTO39@ 


READY. 


RAT TRAP 


The next program comes from Mike O’Neill, and is a two 
player game, in which you move around the screen leaving a 
trail behind you. The object of the game is to avoid colliding 
with anything, including the edge of the screen or either of 
the trails. You keep moving in the same direction until a new 
direction is selected. Player one has the following controls: 
“A’—up, “S”—down, “D’—left, “F’—right 
And player two has these: 
F5—up, F7—down, “.”"—left, “/’—right 


Y 


WG 
\\ 


WOM 


\\ 


\ 
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HN 


a: 
Se eae 


AN 
HI. 


SS 
HUM WSS 
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1 GOSUB1800 : GOSUBZ008 

2 DIMAKC 130), BAC 158) : ¥236878 

5S $236875 : POKE36879. 120: C=38728 

6 1%=1:POKEV.@:POKES,@ 

19 FORI=1T0i15@:A4Ci)=@: BAC 138: NEXT 
15 Din=1:De4=-1 

166 PRINT"<}", B$,.C$:PRINTS1,S2 

118 PRINT" MG @ , 
120 FORI=1TO16 


138 PRINT” 38 a” 
148 NEXT 
15@ PRINT" @ 7” 


16@ A%(1)27972: B46 1)27981 

17@ POKERA¢1>+C, 2: POKERAC1), 81 

18@ POKER“C1)+C.5:POKEBZ~C1). 98 

19@ FORI=1 T0208: NEXT 

208 [xeI“+1 

201 POKES. G:POKEV, 15: FORI=1T02@: POKES. 160+12%/2+1 : NEXT 
218 ScTAS: IFAS=""THEN32@ 

e280 iFAS= ‘W" THEND24=-22 

238 IFAS="MI" THEND24#22 

240 IFAS="."THEND21=-1 

258 IFA$="/"THEND2Z=1 

260 IFAS="A"THENDIZ=-22 

278 IFRS="S"THEND* “222 

280 IFAS="D" THENDIZ=-1 

296 IFAS="F"THEND14=1 

295 GOTO21e 

308 AACI AAAI 4-194014 

316 IFPEEKCAAC IZ) )<>32THENSOO 

320 POKEARAC1Z)+C.2:POKEALCI“). 81 
358 BACI“A) @B“CI42-1)4+D24 

360 IFPEEK( BACT“) ><>32THENSOO 

378 POKEBZC1%)+C, 5: POKEBAC I“). 98 
371 POKES, @:POKEYV, 15: FORI=17028: POKES, 160+14%/2-1 : NEXT 
388 FORI=1TO5@@ : NEXT 

39@ GOTI28@ 

408 S22S2+1 

410 In2lé-1 | IFIZ=@THENG 

422 POKEA“CI2“), 32 

421 POKES, 250-1%-'2 : POKEV, 13 

438 FORI=1T05: POKES. 250+1-1%/2: NEXT 
448 GOT0410 

308 SisSi+i 

310 [és14-1: IFIZ=OTHENG 

328 POKEBZC IZ“), 32 

S21 POKES, 250-1%/2:POKEV, 15 

338 FORI#1T0S : POKES, 250+1-i4/2 : NEXT 


348 GOTOS18 

1008 PRINT" RAT-TRAP" 
1005 PRINT" BY MIKE O’NEILL” 
1018 PRINT" ae KEYS" 


1915 PRINT" PLAYER 1 PLAYER 2” 
1817 PRINT" eeeeeese 50-00400008" 


1028 PRINT" 38 AsUP FS<UP" 
1825 PRINT" S=#DOWN F7=DONIN" 
183@ PRINT” D#LEFT - "LEFT" 


1835 PRINT” F*RIGHT 7*RIGHT" 

1048 PRINT"MM HIT ANY KEY TO START” 
1845 GETAS: IFAS=”" "THEN1O45 

185@ RETURN 

2008 PRINT"CMM ENTER YOUR NAMES” 

2085 PRINT” (MAX. 9 CHARACTERS)” 

2018 INPUT" MPLAYER 1°; BS 

2020 IFLENCBS)<1Q@THEN2ZOSO 

2038 PRINT" MAXIMUM 9 CHARACTERS” 

2035 INPUT"PLEASE RE-ENTER" ; BS: GOTO2820 


2038 INPUT" XMPLAYER 2";C$ 

2068 IFLEN(C$)<1@THEN2@90 

2078 PRINT" MMAXIMUM 9 CHARACTERS" 

2075 INPUT"PLEASE RE-ENTER” 5 C¥:GOTO2060 
2098 RETURN 


READY. 


RAT TRAP « 83 


JUPITER RUN 


In this program a never ending stream of interplanetary 
ships and debris hurtles toward you. Your task, of course, is 
to destroy these objects while avoiding a collision. In this 
game you only get one chance! 

Your ship is armed with one phaser which can only fire 
one shot at a time. And to make matters worse it has a limited 
range and cannot reach the targets at the top of the screen. 
This game is a matter of endurance and survival as you battle 
against constant enemy onslaught and your own loss of 
energy. Aim carefully because each shot of the phaser costs 
ten units of energy and if your energy level descends to zero 
you are considered dead. If your shot is a hit then you gain 
ten energy units with which to continue the struggle. 

There are five control keys available to you: 

. Tilts the ship at a 45 degree angle to the left. 

. Tilts the ship at a 45 degree angle to the right. 
. Moves the ship to the left. 

. Moves the ship to the right. 

. Fires your phaser. 

Your score is displayed in the top left hand corner and 
your energy level in the top right. Press “Y” to start a new 
game. 


Soon = 
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10 REM JUPITER RUN 

20 GCSUB1A0@ 

3@ IFPEEK(653)THEN3O 

40 GOSUBSa@ 

8@ K=PEEK(197) 

9@ IFK=S9ANDFNT(X)>1 THENX=~1 

{@Q IFK=4ANDFNT(X¢21 THENX=X+1 

119 IFK=@ANDS>1THENS=S-1 

128 IFK=S6ANDSC3THENS=S$+1 

14@ IFPEEK(X)>32THEN2@0 

150 IFXC>OXORPEEK(X)=32THENPOKEOX. 32: POKEX, S+26: OX=X 

160 IFK=6@THENGOSUR320 

170 PRINT*MSZ&"SC)TABCIOO"C"E"H 

160 IFECSOTHENPOKE36879, 10 

198 IFEDSQTHENFOKE36879, 8 

20@ GOTO3e 

300 REM FIRING 

310 N=230:E=E-5:SF=SF+1 

320 M=M(S>:D=D(S) : Y=x 

330 FORI=1T06: IFY<XTHENPOKEY, 32 

349 Y=¥-D 

258 NeN-5:POKES3;N 

360 IFPEEK(Y)>=34THEN4O@ 

37@ POKEY,M:POKEFNC(¥), 2 

375 BsFNT(Y) : IFB=QORR=22THENS9A 

380 NEXT 

398 POKES3.@:POKEY, 32: RETURN 

400 REM HIT! 

41@ POKES4, @:POKES1, 245: POKES2, 225: POKES9, 196: POKEY, 39: POKEFNC¢Y)» 1 
420 SC=SC+10:EsE+10:H=H+1 

470 FORI=1T05@:NEXT: POKEY, 32 

480 POKES1,@:POKES2.0:POKES3, B 

498 RETURN 

500 REM PLANT ASTEROID 

510 FORI=1TOR 

520 POKEG46, FNR¢7)+1 

S30 PRINT" Md” TABCFNR (20) )CHRS(FNR( 39434) 

540 NEXT 

55Q PRINT" SM0N" :POKE218, 158: 

S6Q IFPEEK(X)>34THEN20Q0 

57 POKEX, S+26:POKEFNC“C), 1 

S80 RETURN 

999 END 

100@ REM READY 

1018 PRINT" 1" :POKES2, 28: POKES6, 28: POKESS, @:POKES1, 

1020 FORI=27%8T040%8+7 

183@ READA: POKEI+7168.A:NEXT 

1040 DATA136, 68. 42, 17, 160,64, 32, 16 
1050 DATAIE. 16, 146, 146.254, 130, 138.8 
1060 DATAI7, 34.84, 136,5,2,4,8 

1070 DATAG,@,0,16,8,4,0,0,0,8,8,8.16, 
1080 DATAG, 0,0,0,0,0,0,0,0,0,0,16.16, 
1098 DATA24, 112, 60,254, 126.124,62.0.0, 
110@ DATAG,@.56.124,82,252, 120,48 
111@ DATA, @, 219, 146,210,82,219,0,0,0.179, 178,179, 178,171,8 
1120 DATA®, 68, 16,56, 16,68,0,0 

1130 DATA126, 64,64, 120,64,64, 126,08 

1158 FORI=48#8T057#8+? : POKE7168+1 , PEEK (32768+1 > NEXT 

1208 POKE36879, 8: POKE36678, 15: POKE36869. 255 


32,0,0 
{ 4) 


2.0 
6,4, 
0,48. 124,62,24,0,8 
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1210 DEF FNRCK=INTCRNDS 1 mx 

1220 DEF FNT“<X>=22¢ (X-7688)/22-INT!(X-7680 7/22) > 
1236 DEF FNC¢(K)=K+30720 | 

1240 X=8174 

1250 S=2 

1268 S1=36874 :S22S1+1 :S3=S2+1 :S4=$3+1 

1278 FORI=1T03:READM(1>,D¢1> : NEXT 

1286 DATA3@, 23.33.22,31,21 

1299 A=1 

1308 E=100 

1999 RETURN 

200@ REM END 

2018 POKES4+2. 42 

2020 POKES1,18@ 

2039 POKEX,39:POKEFNCCX?, 1 

2640 FORI=1T01@00 : NEXT 

265@ POKES1,@:POKE198.@ 

2078 WAITI98, 1:POKE198,@ 

2080 FOKES6869, 242 

2096 PRINT" TIMe IOU’RE DEAD!" 

2108 PRINT" MMGSOND ONLY SCOREDM". SC 

2110 PRINT" WHOTS FIRED" TABS 11>SF 

2126 PRINT" IITS"TABC115H 

2130 IFH>@THENPRINT"% IITS"TABC119 INT CH/SF#1 00> "IE" 
215@ PRINT" MOANT TO DO BETTER?" 

2168 GETA$: IFAS="7" THENRUN 

217@ IFAS="N"THENPRINT "Md" : POKEES1. ASCO" "> > POKE198. 1: END 
218@ GOTO216a 


READY. 


VOGON 


Your mission in this program is to destroy a “helpless city”. If 
your conscience is not pricked by this description of the 
target, launch the missiles from your craft, as it crosses the 
screen from left to right, by pressing the shift key. Holding 
down the shift key will keep the missile flying through the air 
instead of dropping immediately. This enables you to aim 
more accurately. As time progresses your craft gradually 
descends; for your mission to be successful all the buildings 
below must be destroyed before the craft reaches the 
ground. 

The game is not difficult to master but it does display good 
graphics and the closing sequence has a particularly menac- 
ing, throbbing sound effect as the screen fills with replicas of 
your craft. 


1@ REM VOGON 
20 GOSUELQQQ ~ 

3@ GOSUB9AG © 

40 FOR MOVE=@ TO MAX STEP INC- 

SQ S=PEEK(ES2) » 

6@ IFSANDF=@THENGOSUBRAA 

70 IFS=QANDFS1THENF=2 | 

100 ON F GOSUBRGAa.5aa.600 ~~ — 

150 IFFANDB>=8185THENGOSLIB7a@Q 

200 PRINT" MRaSCORE "SC; 

210 IFF=QTHENPRINTTAB( IE) "MIRE!" 

300 NEXT MOVE :GOTO3@ 

400 REM UPDATE BOMB (Fai) 

41@ POKER, 32: B=B+1 : P=PEEK(R) 

420 IFP=3QTHEN700 

43@ POKEFNC(B>,13:POKEB, 27 

44Q@ 2=B-7680/22 : POKES2 . 22042246 2-INT(Z>) 
450 V=V+A 

490 RETURN 

SAQ REM SLOWING (F=2> 

S10 V=V-Ii 

520 POKEB, 32 

53Q IFY<=Q@THENF=3 : RETURN 

540 R=B+1: IFPEEK(B)=3QTHENSC=SC +5: GOTO700 
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S54 POKEFNCCR?.5: POKER. 31 

S6é@ POKES2, 200+'VANDZ5S 

398 RETURN 

é@0 REM DROP (F=3) 

61@ POKER, 32 

620 B=B+22: IFPEEK CB =3QTHENSC=SC+10: GOTO7aa 

644 POKEFNCCB). 5: POKER. 33 

69@ RETURN 

702 REM EXPLOSION 

71@ POKES! .@:POKES2.@:POKESS, @: POKES4, 201 

728 POKEFNCCB). 2: POKEB, 34 

73@ FORT=1T0108: NEXT 

748 FOKES4.@ 

798 POKEB, 32 

788 F=G 

798 RETURN 

808 REM LAUNCH 

81@ POKES3, 220: PRINT" "TABS 16>" 

820 B=k+22 

83@ FORI=1TOFNR‘S> 

84@ POKES3. PEEK(S3)-1@ 

858 POKER, 32 

86@ B=B+22:POKEFNC(B).5: POKER: 31 

87@ NEXT 

88@ POKES, @:F=1 

898 RETURN 

900 REM MOVE SHIP 

918 POKEX, 32 

920 X=X+1 

938 IFPEEKCX+1>=3@THENZO8G 

940 POKEX., 28 

95@ FOKEFNCCK+1>. 13: POKEX+1,29 

968 IFX=8184THENS2@G8 

999 RETURN 

16@@ REM SET UP 

1@1@ PRINT" &)" : POKE36879,8 

182@ POKE36878. 44 

1938 POKES1.@:POQKES2, 28: POKESS. @:POKES6. 28 
~ 1048 FORT=27#ST07+8e(27+7) 

1958 READA: POKET+7168. A: NEXT 

118@ DATAS2. 32. 40, 250.258. 48,32. 32 

1110 DATAG, 3, 18.43.191.191,.42.18 

1128 DATAG. 192. 160,232,254, 254, 168, 168 

113@ DATA126, 126,66, 66, 126, 126.66. 66 

114@ DATA48: 48. 68,63,63. 68,48, 48 

115@ DATAG.0,0,0,.8.0,0:0 

116@ DATAG.@,126,126,6@.60.24,24 

117@ DFTAQ@. 68. 16,56, 16,8.68,0 

13@@ REM SHIP DATA 

1314 A=1:D=2:REM ACCELERATION & DE... 

1920 K=7741 

1338 MAX=1: INC=1:REMMAX& INCREMENT MOVE 

1358 REM CITY RIT 

1366 CH=Q: REM HEIGHT 

137@ CW=18:REM WIDTH 

1386 CC=8175:REM CENTRE 

1408 FORI=@TOCH 

141@ PisCC-I:P2=CC+I 

1424 FORJ=@8TOCH~I 

143@ POKEP1~22%7, 30: POKEP2-22%J. 38 


1442 


13a@ 
1510 
1608 
1788 
1999 
2008 
2010 
2020 
2030 
2840 
2050 
2060 
2078 
206a 
2098 
2180 
2118 
2120 
2130 
2148 
2158 
2168 
3808 
3018 
3628 
3834 
3046 
Sa5e 
SOE0 
sara 
2839 
3898 
3188 
3112 
3120 
3139 


NEXT. 1 

DEF FNC(X)#Xx+39720 

DEF FNR(X)=INTCRNDC1#X) 
S1=36874 :S2=S1+1:S3=S2+1 S4eS3+! 
PAKESESES, 255 

RETURN 

REM DEAD 

POKES1, 200: POKES2. @: POKES. @: POKES4. 0 
POKEX. 32: POKEN+1 , 32 

¥=X422: IF¥D=61@5THEN2O7B 
POKEFNC(X), 12: POKE®, 29 
POKEFNC(X4+1), 13:POKEX+1, 29 
GnTo2e2e 

FORI=1 7052 

FORJ=-1T01 

POKES6R64. PEEK (36864) 4+J :POKES6R65, PEEK (36865 )-J 
NEXTJ. 1 

POKES1,0 

PRINT" SMMN@ROU FRILED!" 
FORI=1T0200: NEXT 

PRINT" MMSHIT A KEY TO TRY AGAIN" 
POKE199. 0: WAITI98, 1:POKE1SS. a 
RUN 

REM INVASION! 

POKES1, 195: FOKES2, 195: POKESS, 136 
POKES4+1,11! 

FORI=1TO5aa 

MSFNP (253 #247680 
POKEFNC(X). 13: POKEN, 28 
POKEFNC(M4+1), 19: POKEN +1. 20 

NEXT 

POINT" SBM SUCCEEDED!" 

PRINT’ MNSSCORING" “PRINT” §"SC 
PRINT’ SIANT TO NESTROY” 
ORINT"SRNOTHER HELPLESS CITyO" 
PRINT" SHIT A KEY" 
POKE193,.@°HRITI9®. 1: RUN 


READY. 
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How to Write 
Better 
Programs 


By Tim Hartnell, series editor 


There are a number of fine programs in this book, and many 
of the regular computer magazines contain others. But no 
matter how good the programs from published sources are, 
you are certain to get more pleasure from running them if 
they have been partially or completely written by you. 
Putting your personal stamp on programs, altering them to 
reflect your wishes and creativity, is an excellent way to 
improve the programs, and eventually, of course, you'll 
become a better and more imaginative programmer. 

Programs in magazines, and in books like this one, are 
ideal as starting points for your own developments. You may 
also find that advertisements for software packages can be 
fruitful “idea-starters”. You only need to read the descrip- 
tion of what the commercially available program does, and 
you will have the first step toward creating your own 
program. You have to be careful, of course, not to infringe 
copyright either in the screen displays, in the name of the 
program, or the names of the “characters” within the pro- 
gram. However, you will probably find that at a certain point 
in its development the program will take on a life of its own, 
growing and evolving away from the original scenario, until 
you eventually have a completely new game concept and 
implementation. 

Whatever you do, be careful not to pass off other people’s 
work as your own. By all means adapt and improve pub- 
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lished programs, but do not then present them to magazines 
as if they were originals. | have lost count of the number of 
times one of my own programs, from one of my books, has 
been submitted to me for publication. 

Always watch out for new ideas as you look through 
books, game and computer magazines, or wander through 
video game arcades. It may be worth keeping notes of ideas 
you come across for games, for character shapes, for 
sounds, for dramatic endings and so on. Thus you will never 
be short of ideas, and you will also be able to merge the 
material together to produce better games which hold the 
player’s attention for longer. 

Games tend to fall into one of three categories, and it is 
worth making sure of the category into which your proposed 
program will fall before you start to program, since the 
category of game materially alters the programming ap- 
proach. This is not to say that, as you develop a program, it 
will not move from one category into another, nor that a 
particular game might not extend across two categories, but 
it is nevertheless useful to keep the various groups separate 
in your mind, just to clarify your thoughts. The three catego- 
ries are: 


1. Board games 

2. “Arcade” (that is, highly visual, fast moving, noisy, real 
time) games 

3. Games of chance (such as Roulette and Snap). 


In board games, the quality of play is more important than 
lightning-fast response, while the arcade-type programs 
must be kept moving at all costs, even if some “intelligence” 
from your Martian intruders must be sacrificed to achieve 
this. Games of chance depend more on their ease of play 
(“user-friendly” inputs), and an approach to true random- 
ness, than do either of the other categories. 

You will find that games programs tend to fall into types, 
which are subdivisions of the three above mentioned cate- 
gories. Many board games are variants of chess or checkers; 
many arcade games started off life as Space Invader-type 
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games; and games of chance started off in the “real world” 
of dice and cards. Looking at a program description, or a 
games machine, and trying to categorize the game you see 
can help trigger new ideas which fit within that particular 
game’s genre. 

There is a school of thought within programming—gener- 
ally called “structured programming’—which believes that 
discipline at the beginning of the games-writing process is 
essential. While less interesting than sitting down at the 
computer right away, a much better program is produced in 
the end. | once wrote a program called Dome Dweller, a 
simulation program in which the player is in charge of a 
“lunar dome” and must decide which products to manufac- 
ture and sell in order to buy oxygen and food for the station’s 
inhabitants. (This program was used in my book The Book of 
Listings, written with Jeremy Ruston, and published by the 
BBC.) Once | had decided the overall scenario, | worked out 
the screen display, and came up with an idea as follows: 


Oxygen supplies are low 

There are 96 people living within your dome in year 3 

Money credit is $5,693 

Annual maintenance charge is $226 

Oxygen tanks hold 811 units 

Oxygen costs $8 per unit 

Each dome dweller needs 5 units a year 

Food stocks stand at 2122 

Each dweller needs 3 units a year ($6 each, $576 for dome. 
This will last 7 years at present population.) 

You can trade your unique lunar sculptures with the 
people who live in other domes. You use up 2 units of 
oxygen making each one, and sell them for $30. 


As you can probably guess from this “sample printout”, 
the idea of the program is to decide how many “unique lunar 
sculptures” you must make and sell in order to buy oxygen 
and food, and to pay the “annual maintenance” charge. The 
problem with this particular program is that making each 
sculpture uses up oxygen, so you must balance your wish to 
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make money against the need to use the oxygen intelli- 
gently. 

You may well wish to try writing such a program yourself. 
You should end up with an enjoyable program, and writing it 
will do much to help you develop your programming skills. 
The first thing to do is to make a list of what the program has 
to do: 


Set up the needed variables 

Tell the player the “state of the dome” 

Ask how much oxygen to be bought 

Check if can afford this, if so buy it, if not go back and ask 
again 

Ask how much food to be bought 

Check if can afford this, if so buy it, if not go back and ask 
again 

Update oxygen quantity 

Update food quantity 

Reduce money left total 

Ask how many items of sculpture to be made 

Check if there is enough oxygen to make this many, if not 
go back and ask again 

Reduce oxygen quantity by amount needed to make the 
number of sculptures specified, increase money total to 
reflect value of sculptures made 

Increase the population total slightly, add one to the 
“current year” 

Check if there is enough food in stocks to feed whole 
population 

Check if there is enough oxygen for whole population 

Check if there is any money 

If any of these conditions are negative (e.g. not enough 
food) send action to an “end of game” routine 

If all are positive, loop back to tell the player the state of 
the dome, and continue to circle 


You could probably write a Dome Dweller program using 
the list above, together with the “sample printout” informa- 
tion. There is, however, a secret | should like to share with 
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you which unlocks programming problems almost instantly. 
You can actually write all the vital parts of a program in 
minutes, so you can see the raw framework of a program like 
this running long before you fill in the details. And once you 
have a framework you can work on it for as long as you like, 
knowing as you do so that—at every moment in program 
development—you have a working program. You do not 
have to wait until the end until you can run it to see how you 
are going. The secret is to hold the entire program within a 
series of subroutine calls, all held within a perpetual loop. 
Here’s how it could work with this program. The very first 
lines you enter in your computer are as follows: 


10 REM DOME DWELLER 

20 GOSUB 1000: REM ASSIGN VARIABLES 

30 GOSUB 2000: REM PRINT OUT STATE OF DOME 

40 GOSUB 3000: REM OXYGEN 

50 GOSUB 4000: REM FOOD 

60 GOSUB 5000: REM SCULPTURE 

70 GOSUB 6000: REM UPDATE POPULATION 

80 GOSUB 7000: REM CHECK ON STATE OF DOME 

90 IF (all conditions positive, from GOSUB 7000) THEN 
GOTO 30 

100 REM End of game... 


As you can see once you have the master loop set up in 
this way, it is relatively simple to fill in each of the subrou- 
tines one by one, testing each as you do so, and elaborating 
each one so that you end up eventually with a very good 
program. The only thing you need now is a list of the 
variables which you will use with the program. 

| find the best way to do this is to use explicit names for 
variables so that when you are programming you do not have 
to spend time checking, for example, whether AA stands for 
the population, or the number of units of oxygen used up in 
making each item of sculpture. To make programs as easy as 
possible to transfer between different computers you can 
stick to two letter variable names, or you can take advantage 
(if your computer allows it) of long names (such as OXYUSE 
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for the amount of oxygen used) for variables. Then you have 
no doubts whatsoever as to the meaning of each variable 
name. To show how this can work, and to illustrate a further 
advantage of explicit variable names, here are the variables 
used in Dome Dweller: 


FOLK—population of dome 

CASH—money in treasury 

FOOD—food stocks on hand 

FOODCOST—how much each unit of food costs 

FOODNEED—how many units of food were consumed per 
person per year 

ARTCOST—how much oxygen was used up making each 
piece of sculpture 

ARTPAY—how many dollars each piece of sculpture was 
sold for 

OXY—oxygen stocks on hand 

OXYNEED—how many units of oxygen were consumed 
per person per year 

OXYCOST—how much each unit of oxygen cost to buy 

REPAIR—the cost of annual repairs to the dome 

YEAR—the year of the dome’s life 


Using explicit variable names in this way—although they 
use up more memory than single or double-letter variable 
names—makes it very simple to follow through a program, 
working out what each section of the program actually does. 
Moreover, and this is the further advantage mentioned, it is 
very easy when writing the program to insert the formula 
required for calculations. By this | mean that if, for example, 
you wished to include (as | do in this program) an indication 
of how much oxygen is needed for each year, you simply 
multiply the number of people in the dome (FOLK) by the 
number of oxygen units each person needs each year (OXY- 
NEED). You can then include within the printouts for the 
state of the dome a line like: 


PRINT “THERE ARE”; FOLK; “IN THE DOME” 
PRINT “IN YEAR”; YEAR 
PRINT “EACH PERSON NEEDS”; OXYNEED; “UNITS OF” 
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PRINT “OXYGEN EACH YEAR,”; 
OXYNEED*FOLK;” NEEDED” 
PRINT “FOR THE WHOLE DOME” 


It also makes it very easy to check on whether purchases are 
possible. For example, to buy food, you could say: 


PRINT “HOW MUCH FOOD WILL YOU BUY?” 
INPUT A 
IF A*FOODCOST ) CASH THEN GOTO (get another A) 


So the suggestions given here for improving your pro- 
grams by the use of “structured programming” include the 
following: 


—draw up a sample printout, or mock-up of the final 
screen display 

—draw up a list of what the program has to do each time 
through a “master control loop” 

—change this list to a series of subroutine calls 

—use explicit variable names if possible 


It is useful if you are designing programs for others to use 
to ensure that it is quite clear what the player should do 
when running the program. There is little point, especially 
when memory is limited, in including a long set of instruc- 
tions-within the program, but you should certainly write 
such instructions down. In addition, user prompts should be 
explicit (such as ENTER THE NUMBER OF GOES YOU WANT) 
and should include warnings of the limits which will be 
placed on the input (HOW MANY CARDS WILL YOU START 
WITH: 1, 2 OR 32, for instance). 

You cannot assume that you will be present every time a 
program is run, so you should do your best to make it as 
foolproof as possible. If you can, add error-trapping rou- 
tines to the program to ensure that a mistake in entering a 
choice earlier on in the program will not cause it to crash or 
come up with stupid results later on. 
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If you read through this section of the book several times 
and try to apply the ideas to your own programming work, 
you should find your work quality improves significantly, 
and also that you can spend more time improving and 
embellishing a program and less in the raw mechanical task 
of getting the thing running. 


GLOSSARY 


A 


Accumulator—the place within the computer in which 
arithmetic computations are performed and where the 
results of these computations are stored. 

Algorithm—the series of steps the computer follows to solve 
a particular problem. 

Alphanumeric—this term is usually used in relation to a 
keyboard, as in “it is an alphanumeric keyboard”, which 
means that the keyboard has letters as well as numbers. It 
is also used to refer to the “character set” of the computer. 
The character set comprises the numbers and letters the 
computer can print on the screen. 

ALU (Arithmetic/Logic Unit)—the part of the computer which 
does arithmetic (such as addition, subtraction) and where 
decisions are made. 

AND—a Boolean logic operation that the computer uses in 
its decision-making process. It is based on Boolean alge- 
bra, a system developed by mathematician George Boole 
(1815-64). In Boolean algebra the variables of an expres- 
sion represent a logical operation such as OR and NOR. 

ASCli—stands for American Standard Code for Information 
Exchange, the most widely used encoding system for 
English language alphanumerics. There are 128 upper and 
lower case letters, digits and some special characters. 
ASCII converts the symbols and control instructions into 
seven-bit binary combinations. 

Assembler—a program which converts other programs writ- 
ten in assembly language into machine code (which the 
computer can understand directly). Assembly language is 
a low level programming language which uses easily mem- 
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orized combinations of two or three letters to represent a 
particular instruction which the assembler then converts 
so the machine can understand it. Examples of these are 
ADD(add), and SUB (subtract). A computer programmed 
in assembly language tends to work more quickly than one 
programmed in a higher level language such as BASIC. 


BASIC—an acronym for Beginners All-Purpose Symbolic In- 
struction Code. It is the most widely used computer 
language in the microcomputer field. Although it has been 
criticized by many people, it has the virtue of being very 
easy to learn. A great number of BASIC statements resem- 
ble ordinary English. 

Baud—named after Baudot, a pioneer of telegraphic com- 
munications. Baud measures the rate of transfer of infor- 
mation and is approximately equal to one bit per second. 

BCD—an abbreviation for Binary Coded Decimal. 

Benchmark—a test against which certain functions of the 
computer can be measured. There are a number of so- 
called “standard Benchmark tests,” but generally these 
only test speed. This is rarely the aspect of a microcompu- 
ter that is of most interest to the potential buyer. 

Binary—a numbering system that uses only zeros and ones. 

Bit—an abbreviation for Binary Digit. This is the smallest unit 
of information a computer circuit can recognize. 

Boolean Algebra—the system of algebra developed by mathe- 
matician George Boole which uses algebraic notation to 
express logical relationships (see AND). 

Bootstrap—a short program or routine which is read into the 
computer when it is first turned on. It orients the compu- 
ter to accept the longer, following program. 

Bug—an error in a computer program which stops the pro- 
gram from running properly. Although it is generally used 
to mean only a fault or an error ina program, the term bug 
can also be used for a fault in the computer hardware. 
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Bus—a number of conductors used for transmitting signals 
such as data instructions, or power in and out of a compu- 
ter. 

Byte—a group of binary digits which make up a computer 
word. Eight is the most usual number of bits in a byte. 


C 


CAl—Computer Assisted Instruction. 

CAL—Computer Assisted Learning. The term is generally 
used to describe programs which involve the learner with 
the learning process. 

Chip—the general term for the entire circuit which is etched 
onto a small piece of silicon. The chip is, of course, at the 
heart of the microcomputer. 

Clock—the timing device within the computer that syn- 
chronizes its operations. 

COBOL—a high level language derived from the words 
Common Business Orientated Language. COBOL is de- 
signed primarily for filing and record-keeping. 

Comparator—a device which compares two things and pro- 
duces a signal related to the difference between the two. 

Compiler—a computer program that converts high level 
programming language into binary machine code so the 
computer can handle it. 

Complement—a number which is derived from another ac- 
cording to specified rules. 

Computer—a device with three main abilities or functions: 
1) to accept data 
2) to solve problems 
3) to supply results 

CPU—stands for Central Processing Unit. This is the heart of 
the computer’s intelligence, where data is handled and 
instructions are carried out. 

Cursor—a character which appears on the TV screen when 
the computer is operating. It shows where the next char- 
acter will be printed. On a computer there are usually 
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“cursor control keys” to allow the user to move the cursor 
around the screen. 


D 


Data—information in a form which the computer can pro- 
cess. 

Debug—the general term for going through a program and 
correcting any errors in it, that is, chasing down and 
removing bugs (see Bug). 

Digital Computer—a computer which operates on informa- 
tion which is in a discrete form. 

Disk/Disc—this is a magnetically sensitized plastic disk, a 
little smaller than a single play record. This is used for 
storing programs and for obtaining data. Disks are consid- 
erably faster to load than a cassette of the same length 
program. The disk can be searched very quickly while a 
program is running for additional data. 

Display—the visual output of the computer, generally on a 
TV or monitor screen. 

Dot Matrix Printer—a printer which prints either the listing of 
a program or that which is displayed on the TV screen. 
Each letter and character is made up of a number of dots. 
The higher the number of dots per character the finer the 
resolution of the printer. 

Dynamic Memory—a memory unit within the computer 
which “forgets” its contents when the power is turned off. 


E 


Editor—this term is generally used for the routine within the 
computer which allows you to change lines of a program 
while you are writing it. 

EPROM—stands for Erasable Programmable Read-Only 
Memory. This is like the ROM in the computer, except that 
it is fairly easy to load material into an EPROM and it 
doesn’t disappear when you turn the power off. EPROMs 
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must be placed in a strong ultra violet light to erase them. 

Error Messages—the information given by a computer where 
there is a fault in the coding during a part of a program, 
usually shown by the computer stopping, and printing a 
word, or a word and numbers, or a combination of num- 
bers only, at the bottom of the screen. This tells you what 
mistake has been made. Common mistakes include using 
the letter O instead of zero ina line, or leaving out a pair of 
brackets, or one of the brackets, in an expression, or 
failing to define a variable. 


F 


File—a collection of related items of information organized 
in a systematic way. 

Floppy Disk—a relatively cheap form of magnetic disk used 
for storing computer information, and so named because 
it is quite flexible (see Disk/Disc). 

Flow Chart—a diagram drawn up before writing a program, 
in which the main operations are enclosed within rectan- 
gles or other shapes and connected by lines, with arrows 
to represent loops, and decisions written at the branches. 
It makes writing a program much easier because traps 
such as infinite loops, or non-defined variables can be 
caught at an early stage. It may not be worth writing a flow 
chart for very short programs, but generally a flow chart 
aids in creating programs. 

Firmware—there are three kinds of “ware” in computers: 
software ‘‘temporary” programs; hardware like the ROM 
which contains permanent information; and firmware in 
which the information is relatively permanent, as in an 
EPROM (see EPROM). 

Flip-Flop—a circuit which maintains one electrical condition 
until changed to the opposite condition by an input signal. 

FORTRAN—an acronym for FORmula TRANslation, this is a 
high-level, problem orientated computer language for 
scientific and mathematical use. 
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G 


Gate—an electrical circuit which, although it may accept one 
or more incoming signals, only sends out a single signal. 

Graphics—pictorial information as opposed to letters and 
numbers. 


H 


Hard Copy—computer output which is in permanent form. 

Hardware—the physical parts of the computer (also see 
software and firmware). 

Hexadecimal (Hex)—a numbering system to the base sixteen. 
The digits zero to nine are used, as well as the letters A, B, 
C, D, E and F to represent numbers. A equals 10, B equals 
11, C equals 12, and so on. Hex is often used by micropro- 
cessor users. 

Hex Pad—a keyboard designed specifically for entering hex- 
adecimal notation. 

High Level Language—a programming language which allows 
the user to talk to the computer more or less in English. In 
general, the higher the level of the language (that is, the 
closer it is to English), the longer it takes for the computer 
to translate it into a language it can use. Lower level 
languages are far more difficult for human operators but 
are generally executed far more quickly. 


Input—the information fed into the computer via a key- 
board, a microphone, a cassette or a disk. 

Input/Output (I/O Device)—a device which accepts informa- 
tion or instructions from the outside world, relays it to the 
computer, and then, after processing, sends the informa- 
tion out in a form suitable for storing, or in a form which 
could be understood by a human being. 


GLOSSARY «+ 109 


Instruction—data which directs a single step in the process- 
ing of information by the computer (also known as a 
command). 

Integrated Circuit—a complete electronic circuit imprinted 
on a semiconductor surface. 

Interface—the boundary between the computer and a pe- 
ripheral such as a printer. 

Interpreter—a program which translates the high level lan- 
guage fed in by the human operator, into a language 
which the machine can understand. 

inverter—a logic gate that changes the signal being fed in, to 
the opposite one. 

Interactive Routine—part of a program which is repeated 
over and over again until a specified condition is reached. 


J 


Jump Instruction—an instruction which tells the computer to 
go to another part of the program, when the destination of 
this move depends on the result of a calculation just 
performed. 


K 


K—this relates to the size of the memory. Memory is usually 
measured in 4K blocks. 1K contains 1,024 bytes. 

Keyword—the trigger word in a line of programming, usually 
the first word after the line number. Keywords include 
STOP, PRINT and GOTO. 


L 


Language—computer languages are divided into three sec- 
tions: high level languages, such as BASIC, which are 
reasonably close to English and fairly easy for humans to 
use; low level languages, such as Assembler, that use 


110 * GAMES FOR YOUR VIC20 


short phrases which have some connection with English 
(ADD for add and RET for return, for instance); and 
machine code which communicates more or less directly 
with the machine. 

LCD—this stands for Liquid Crystal Diode. Some computers 
such as the TRS-80 Pocket Computer use an LCD display. 

LED—this stands for Light Emitting Diode. The bright red 
numbers which are often used on watch or clock displays 
are made up of LEDs. 

Logic—the mathematical form of a study of relationships 
between events. 

Loop—a sequence of instructions within a program which is 
performed over and over again until a particular condition 
is satisfied. 


M 


Machine Language or Machine Code—an operation code 
which can be understood and acted upon directly by the 
computer. 

Magnetic Disk—see Disk and Floppy Disk. 

Mainframe—computers are generally divided into three 
groups, and the group a computer falls into depends more 
or less on its size. The TS-1000 you are using is a micro- 
computer; medium sized computers are known as mini- 
computers; and the giant computers that you sometimes 
see in science fiction movies are mainframe computers. 
Until 15 years ago mainframe computers were, in practical 
terms, the only ones available. 

Memory—there are two types of memory within a computer. 
The first is called ROM (read-only memory); this is the 
memory that comes already programmed on the compu- 
ter, which tells the computer how to make decisions and 
how to carry out arithmetic operations. This memory is 
unaffected when you turn the computer off. The second 
type is RAM (random access memory). This memory holds 
the program you type in at the keyboard or send in via a 
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cassette or disk. In most computers the computer ‘‘for- 
gets” what is in RAM when you turn the power off. 

Microprocessor—the heart of any computer. It requires pe- 
ripheral unit interfaces, such as a power supply and input 
and output devices, to act as a microcomputer. 

MODEM—stands for Modulator Demodulator. This is a de- 
vice which allows two computers to talk to each other over 
the telephone. The computers usually use a cradle in 
which a telephone receiver is placed. 

Monitor—this has two meanings in computer terms. One 
meaning is a television-like display. A monitor has no 
facility for tuning television programs, and usually the 
picture produced on a monitor is superior to that pro- 
duced by an ordinary television. The second meaning of a 
monitor relates to ROM. The monitor of a computer is 
described as the information it has built in when you buy 
it. This information allows it to make decisions and carry 
out arithmetic computations. 

Motherboard—a framework to which extra circuits can be 
added. These extra circuits often give the computer facili- 
ties which are not built-in, such as that of producing sound 
or of controlling a light pen. 

MPU—an abbreviation for Microprocessor Unit. 


N 


Nano-second—a nano-second is one thousand billionth of a 
second, the unit of speed in which a computer or a 
memory chip is often rated. 

Non-Volatile Memory—memory which is not lost when the 
computer is turned off. Some of the smaller computers 
such as the TRS-80 Pocket Computer have non-volatile 
memory. The batteries hold the program you enter for 
several hundred hours. 

Not—a Boolean logic operation that changes a binary digit 
into its opposite. 
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Null String—a string which contains no characters. It is 
shown in the program as two double quote marks, without 
anything between them. 

Numeric—pertaining to numbers as opposed to letters (that 
is, alphabetic). Many keyboards are described as being 
alphanumeric which means both numbers and letters are 
provided. 


O 


Octal—a numbering system which uses eight as the base, 
and the digits 0, 1, 2, 3, 4,5, 6 and 7. The Octal system is 
not used very much nowadays in microcomputer fields. 
The Hexadecimal system is more common (see Hexadeci- 
mal). 

Operating System—the software or firmware generally pro- 
vided with the machine that allows you to run other 
programs. 

OR—an arithmetic operation that returns a1, if one or more 
inputs are 1. 

Oracle—a method of sending text messages with a broadcast 
television signal. A teletext set is required to decode the 
messages. 

Output—information or data fed out by the computer to 
such devices as a TV-like screen, a printer or a cassette 
tape. The output usually consists of the information which 
the computer has produced as a result of running a 
program. 

Overflow—a number too large or too small for the computer 
to handle. 


P 


Pad—see Keypad. 

Page—often used to refer to the amount of information 
needed to fill one TV screen, so you can talk about seeing 
a page of a program, the amount of the listing that will 
appear on the screen at one time. 
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PASCAL—a high level language. 

Peripheral—anything which is hooked onto a computer, for 
control by the computer, such as a disk unit, a printer or a 
voice synthesizer. 

Port—a socket through which information can be fed out of 
or in to a computer. 

Prestel—the British telecom name for a system of calling up 
pages of information from a central computer via the 
telephone and displaying them on a television screen. A 
similar commercial version in the United States is known 
as The Source. 

Program—in computer terms program has two meanings. 
One is the list of instructions that you feed into a compu- 
ter, and the second is used as a verb; as in ‘to program a 
computer.” 

PROM—stands for Programmable Read Only Memory. This 
is a device which can be programmed, and once it is then 
the program is permanent (see also EPROM and ROM). 


R 


Random Access Memory (RAM)—the memory within a com- 
puter which can be changed at will by the person using the 
computer. The contents of RAM are usually lost when a 
computer is turned off. RAM is the memory device that 
stores the program that you type in and also stores the 
results of calculations in progress. 

Read-Only Memory (ROM)—in contrast to RAM, information 
in ROM cannot be changed by the user of the computer, 
and the information is not lost when the computer is 
turned off. The data in ROM is put there by the manufac- 
turers and tells the computer how to make decisions and 
how to carry out arithmetic computations. The size of 
ROM and RAM is given in the unit K (see K). 

Recursion—the continuous repetition of a part of the pro- 
gram. 

Register—a specific place in the memory where one or more 
computer words are stored during operations. 
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Reserved Word—a word that you cannot use for a variable in 
a program because the computer will read it as something 
else. An example is the word TO. Because TO has a 
specific computer meaning, most computers will reject it 
as a name for a variable. The same goes for words like 
FOR, GOTO and STOP. 

Routine—this word can be used as a synonym for program, 
or can refer to a specific section within a program (see also 
Subroutine). 


S 


Second Generation—this has two meanings. The first applies 
to computers using transistors, as opposed to first genera- 
tion computers which used valves. Second generation can 
also mean the second copy of a particular program; subse- 
quent generations are degraded by more and more noise. 

Semiconductor—a material that is usually an electrical insula- 
tor but under specific conditions can become a conductor. 

Serial—information which is stored or sent in a sequence, 
one bit at a time. 

Signal—an electrical pulse which is a conveyor of data. 

Silicon Valley—the popular name given to the area in Califor- 
nia where many semiconductor manufacturers are lo- 
cated. 

SNOBOL—a high level language. 

Software—the program which is entered into the computer 
by a user which tells the computer what to do. 

Software Compatible—this refers to two different computers 
which can accept programs written for the other. 

Static Memory—a non-volatile memory device which retains 
information so long as the power is turned on, but does 
not require additional boosts of power to keep the mem- 
ory in place. 

Subroutine—part of a program which is often accessed many 
times during the execution of the main program. A sub- 
routine ends with an instruction to go back to the line after 
the one which sent it to the subroutine. 
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T 


Teletext—information transmitted in the top section of a 
broadcast television picture. It requires a special set to 
decode it to fill the screen with text information. Teletext 
messages can be transmitted by cable or over phone lines. 
Examples of this are the Prestel service in Britain and The 
Source in the United States. 

Teletype—a device like a typewriter which can send informa- 
tion and also receive and print it. 

Terminal—a unit independent of the central processing unit. 
It generally consists of a keyboard and a cathode ray 
display. 

Time Sharing—a process by which a number of users may 
have access to a large computer which switches rapidly 
from one user to another in sequence, so each user is 
under the impression that he or she is the sole user of the 
computer at that time. 

Truth Table—a mathematical table which lists all the possible 
results of a Boolean logic operation, showing the results 
you get from various combinations of inputs. 


U 


UHF—Ultra High Frequency (300-3000 megaHertz). 
Ultra Violet Erasing—Ultra violet light must be used to erase 
EPROMs (see EPROM). 


V 


Variable—a letter or combination of letters and symbols 
which the computer can assign to a value or a word during 
the run of a program. 

VDU—an abbreviation for Visual Display Unit. 

Volatile—refers to memory which “forgets” its contents 
when the power is turned off. 
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W 


Word—a group of characters, or a series of binary digits, 
which represent a unit of information and occupy a single 
storage location. The computer processes a word as a 
single instruction. 

Word Processor—a highly intelligent typewriter which allows 
the typist to manipulate text, to move it around, to justify 
margins and to shift whole paragraphs if necessary on a 
screen before outputting the information onto a printer. 
Word processors usually have memories, so that standard 
letters and the text of letters, written earlier, can be 
stored. 
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The A to Z Book of Computer Games (McIntire, Thomas C., 

Tab Books, Blue Ridge Summit, Pa.). 
This is a fine Tab book to give you program ideas and 
ready-to-run programs, although some of the games are a 
disappointment, such as the overly long Othello program 
which does not even play, but simply records the moves 
made by two human players. Others, however, such as 
Fivecard and Hotshot, are well written, and well worth 
entering into your microcomputer. 

BASIC Computer Games (ed. Ahl, David, Creative Computing 

Press, Morristown, New Jersey). 
This is a classic work, the source of more programming 
ideas than any other computer games book ever pub- 
lished. | had a meal with David Ahl one night in London 
after a PCW show and discussed the book. He said that 
he’d been in the personal computer field almost before 
there were personal computers, and while many of the 
games in this book do not seem startling now, the fact that 
people could write and play games for computer interac- 
tion at all seemed quite incredible in the late seventies. 
The Checkers program and Life for Two are just a couple of 
the treasures you will find in this splendid program and 
idea source book. 

BASIC Computer Programs for the Home (Sternberg, Charles 

D., Hayden Book Company, Inc., Rochelle Park, New Jersey). 
Traditionally, home computers (when first purchased) 
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have been used for playing games. One reason why they 
have not been used for more serious applications stems 
from the lack of a readily available, comprehensive set of 
home applications programs that were easy to use and 
understand and that satisfied the practical requirements of 
the home. This book provides a set of programs to make 
your computer start earning its keep. The programs pro- 
vide a good cross-section of practical applications; these 
have been designed so as not to rely upon the availability 
of tape or disk-storage devices. The programs cover a wide 
field, and are divided into a number of sections: home 
financial programs (including household expenses and 
income tax recording); car related programs (including 
fuel use and trip planning); “Kitchen Helpmates” (includ- 
ing diet and meal planning programs); scheduling pro- 
grams for home use (including a reminder calendar and a 
couple of programs which | imagine are designed to short 
circuit arguments about which television programs will be 
watched); and “List programs for every purpose” (includ- 
ing Christmas cards, music collections and three versions 
of an address program). 

The BASIC Handbook (Lien, David A., Compusoft Publishing, 

San Diego, California). 
This is an encyclopedia of the BASIC language. Now that 
BASIC is so firmly established throughout the microcom- 
puter world, it is necessary to make its many dialects 
understandable so that programs can be transported be- 
tween different computers. When you have found exactly 
the program you've been looking for, it is very frustrating 
to be unable to run it on your computer. This book 
addresses that problem by discussing in detail just about 
every commonly used BASIC statement, function, opera- 
tor and command. For the most part, BASIC words mean 
the same thing to every computer which recognizes them. 
If a computer does not possess the capabilities of a 
needed or specified word, there are often ways to accom- 
plish the same function by using another word, or combi- 
nation of words. Although the handbook requires some 
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application to transform the information into usable form, 
it is a very valuable reference work indeed. Every BASIC 
word you have ever heard of (and many you may not have 
heard of, such as LE, NE, GOTO-OF, RES and TIME) is 
probably in the book. It may be of limited use to you in 
your early days of computing, but it should become an 
indispensable handbook once you get more involved in 
the subject. 
Beat the Odds, Microcomputer Simulations of Casino Games 
(Sagan, Hans, Hayden Book Company, Inc., Rochelle Park, 
New Jersey). 
The book explains how to play certain casino games 
(trente-et-quarante, roulette, chemin-de-fer, craps and 
blackjack) and gives complete program listings in BASIC 
with commentaries on systems and optimal strategies. 
Professor Sagan (Professor of Mathematics at North Caro- 
lina State University) says he wrote the book in an attempt 
to convince people that, in the long run, they could not 
win—except possibly at blackjack—and to explain some 
popular systems and their pitfalls, and above all to provide 
very realistic computer simulations of the games them- 
selves. He has succeeded in his attempt. The listings are 
possibly longer than other computer versions of the same 
games, but this is because the Sagan versions strictly 
duplicate the odds involved in playing the game “in real 
life”, and cover all the eventualities that a real game can 
produce. The programs are well-structured, and an exami- 
nation of the listings should give you ideas for improving 
your own programming. — 
The Calculator Game Book for Kids of All Ages (Hartman, 
Arlene, Signet Books, New York). 
The book’s title says it all, and the names of the games 
(which include Fibonacci Follies, Stretch to Sixty and 
Casting Out 9s) suggest the book’s contents. There are 
some worthwhile brain-stretching puzzles, and 15 or so 
ideas definitely calling for conversion to computer games. 
33 Challenging Computer Games for TRS-80/Apple/PET 
(Chance, David, Tab Books, Blue Ridge Summit, Pa.). 
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Even if you don’t have any of the three computers named 
in the title, you will still find the book a goldmine of ideas 
for your own development, and many of them will run, 
with minimal alteration, on any BASIC-using computer. 
Particularly commendable programs are Life Support, 
Scrambled Eggs and Tank Assault. 

Communicating with Microcomputers (Witten, lan H., Aca- 

demic Press, London). 
This is an introduction to the technology of man/computer 
communications for the non-specialist. By placing particu- 
lar emphasis on low-cost techniques associated with small 
systems and personal computers, the reader’s attention is 
focused on the positive nature of the “microprocessor 
revolution’”—how machines can help people—rather than 
the negative aspects which are often highlighted in the 
non-technical press. The level of the book is suitable for 
the layman with some acquaintance with electronics. The 
final section, on speech communication, provides the 
most fascinating reading. 

Computer Games for Businesses, Schools and Homes (Nahi- 

gian, J. Victor and Hodges, William S., Winthrop Publishers 

Inc., Cambridge, Mass.). 
Some of the programs are a little thin for the size and price 
of the book, but the best ones are well worth adapting to 
run on your computer. The inclusion of long, clear sample 
run printouts ensures that you know exactly what the 
programs will do before you run them. The Tennis and Star 
Trek programs are especially good. 

Games for Home, Travel and Parties Jensen, Helen, Western 

Publishing Company Inc., Racine, Wisconsin). 
Aimed squarely at children, this book gives some games 
which are simple to program (these include Snakes, Lift- 
Off and Fish), and contains a complete chapter on how to 
play chess. 

Home Computers, Questions and Answers, Hardware (Didday, 

Rich, dilithium Press). 
The book has two main purposes. First, it is intended to 
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give readers a real feeling for what is involved in home 
computing, so that they can make rational decisions be- 
fore buying equipment. Second, it is intended to give 
people who have no specialized knowledge of computing 
a general background to the subject, and specifically to 
microcomputers. The book succeeds in imparting enough 
information to ensure you will have little trouble under- 
standing articles about advanced projects in computer 
hobby magazines, advertisements for home computing 
equipment, or other people who do have advanced com- 
puter knowledge. 

Inside BASIC Games (Mateosian, Richard, Sybex). 
This book is a guide, albeit a slightly overwritten one, for 
anyone who wishes to understand computer games. You 
will learn how to write interactive programs in BASIC and 
how the principles of systems development are applied to 
small computers. The book also looks at how the features 
of specific small computer systems have been supported 
in BASIC. The sections of the book include: Arithmetic 
Games, Guessing Games, Time Games, Date Games, Tax- 
man, and programming in “Free BASIC”: a structured 
BASIC that is translated manually into the actual BASIC 
instructions to be entered into the computer. Free BASIC 
is not a language; it is a program description medium (like 
flow charts) that has no line numbers, and uses symbolic 
names for subroutines. Additional chapters look at The 
Match-Up Game, Craps and Alien Life. If you can contend 
with the verbiage, you will find this book well worthwhile. 

An Introduction to Personal and Business Computing (Zaks, 

Rodnay, Sybex). 
| had lunch with Rodnay in London during a PCW show 
and he told me that he thought current American predic- 
tions on the growth of the personal computer field were 
grossly pessimistic. He pointed out that the predictions 
current in 1978, when he wrote this book, have been 
proved so inaccurate that would-be prophets should take 
warning and assume that whatever they say will be wrong 
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by a factor of 10 or 100. Despite its age—and computer 
books do age uncommonly quickly—this book is a good 
introduction to the field, explaining in clear, snappy En- 
glish the fundamentals of computer operation. Dr. Zaks 
also gives suggestions on what to look for when buying a 
computer. 

Microsoft BASIC (Knecht, Ken, dilithium Press, Forest Grove, 

Oregon). 
This book presents a complete introduction to program- 
ming in Microsoft BASIC. The concepts presented are 
illustrated with short, working programs. By starting with 
the simplest and most commonly used commands, and 
then progressing on to the more complex BASIC com- 
mands, Mr. Knecht shows how the more powerful ver- 
sions of the language can save valuable programming time 
and effort. 

57 Practical Programs and Games in BASIC (Tracton, Ken, Tab 

Books, Blue Ridge Summit, Pa.). 
There are more serious programs than games (of the Chi- 
Square Evaluation and Fibonacci Numbers variety) in this 
book. They are well programmed, and supported by ade- 
quate (if brief) documentation, and by flow charts. The 
Space Wars programs (versions one and two) at the end of 
the book are particularly good. 

Problems for Computer Solution (Rogowski, Stephen J., Crea- 

tive Computing Press, Morristown, New Jersey). 
This outlines over 50 simple (and a few not-so-simple) 
problems which can be solved by writing a program. There 
are both teacher and student editions of this book; the 
teacher edition has a suggested program and sample run 
printout to solve the difficulty. It is an excellent source for 
educational ideas. 

Stimulating Simulations (Engel, C. W., Hayden Book Com- 

pany, Inc., New Jersey). 
Here, according to the cover, are “12 unique programs in 
BASIC for the computer hobbyist.” Inside you will find 
some fascinating programs: Forest Fire, Rare Birds and 
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The Devil’s Dungeon are three you are sure to enjoy 
playing, while Diamond Thief (the computer decides who 
has committed the crime, then challenges you to discover 
which of the suspects is guilty) is both well written and 
tightly programmed. 

TAKE TWO! 32 Board Games for 2 Players (Tapson, Frank, A & 

C Black, London). 
This book is aimed at children, but it does give many 
fascinating ideas that could be transformed into computer 
games (even if some of them are duplicated elsewhere in 
the book). 

24 Tested, Ready-to-Run Game Programs in BASIC (Tracton, 

Ken, Tab Books, Blue Ridge Summit, Pa.). 
Tab Books are prolific publishers in the microcomputer 
program field, and their books are deservedly successful. 
If nothing else, reading a book such as this one will give 
you ideas for structuring programs neatly, and for writing 
them to ensure the maximum compatibility between dif- 
ferent versions of BASIC. Many of the games, such as Auto 
Rally and Capture the Alien, are (despite their weak titles) 
well thought out, carefully constructed programs. 

1001 Things to Do with Your Personal Computer (Sawush, 

Mark, Tab Books, Blue Ridge Summit, Pa.). 
| bought this book at a computer fair in Atlanta, and read it 
(making notes, and turning down page corners) on the 
flight to London. And | still hadn't finished it on arrival. If 
you feel you have come to the end of possible applications 
for your computer, buy this book and discover that you 
have barely scratched the surface. It tells you about writ- 
ing music and stories, aiding a mechanic or a carpenter, 
solving simultaneous equations, astrology, and much, 
much more. 

The World Computer Chess Championship (Hayes, Jean E., and 

Levy, David N. L., Edinburgh University Press, Edinburgh). 
This is a fascinating account of the world’s first machine 
versus machine chess championship, held in 1974, when 
the dozen or so computer programs taking part were the 
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only chess programs in existence. The games are analyzed 
in detail, and the final section of the book outlines a 
board-numbering system which you could use if you’re 
considering writing your own chess program. The book 
makes you realize how far the computer world has come 
in only a few years. 
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Jupiter Run. . Avoid the obstacles and gobble up the 
numbers in Digit- Dodge.... Hold the fate of the Feder- 
ation starship in your hands in Tail Gunner... Turn your 
MIG 20 into a futur istic musical Instrument Wi “ith Piano 
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LE .Improve your computer-game skills. 
Extend your programming expertise. Learn tricks and 
techniques to apply to your own programming as you 
follow instructions to enter each game into your 
VIC20. Once you've mastered the programs in their 
present form, youre the expert. Try your hand at im- 
proving them! 


COMPLETE WITH A GLOSSARY OF COMPUTER 
TERMS, A SELECTIVE BIBLIOGRAPHY, AND HINTS 
ON HOW TO IMPROVE AND EXTEND THE GAME 

ROGRAMS THAT WILL ADD TO YOUR ALL-ROUND 
PROGRAMMING EXPERTISE. 
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